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Software  Crisis 
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DISCUSSION 

Let’s  take  a  look  at  the  major  factors  for  change  surrounding  large  software  system 
development.  From  the  previous  slide,  we  see  that  large  software  systems  must  accommodate 
cha  ging  requirements  and  design.  When  thinking  about  the  types  of  changes,  realize  that  large 
sof-.vu.re  systems  exist  for  very  long  periods  of  time.  Consider  the  space  shuttle.  The  software 
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DISCUSSION 

Software  engineers  do  much  more  than  just  code;  data  on  software  development  shows  only 
15%  of  their  time  is  spent  in  coding.  Gathering  requirements  and  producing  a  design  involve 
various  communication  skills.  For  example,  usually  a  team  of  software  engineers  elicits 
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DISCUSSION 

As  you  can  see  from  this  pie  chart,  software  engineers  spend  the  majority  of  their  time 
communicating.  In  fact,  they  spend  over  35%  of  their  day  communicating!  Communicating 
encompasses  many  different  aspects: 


U) 

Ci 

E 

o 

(/) 

D 

O 

k— 

o 

c 

<a 

0) 

Wa 

0) 

(1) 

c 

‘cn 

c 

0} 

<D 

k— 

CO 


o 

CD 

sz 

o 

o 

O) 

c 

c 

CD 

cn 

k— 

o 

O) 

c 

12 

CO 


CD 

O) 

CO 

c 

CO 

E 

CO 


CD 

E 


CD 

xz 


o 

CO 


CO  d) 

3  C 
§  CO 
£-1 


•O 

c 

CD 


<=  XJ 


n 

CO 
CD  CD 


8 


CD 

E 


> 

CD 

C 

1^ 


3 

■o  o 
^  cO 
CD  ^ 

2  H 

CD  • 
CD 

^  r- 

bz  C 
CT  <0 


5  -S  CD 


cn 

k.  — ■ 

O 

5  oj 

|l 

o  CD 

•C  C 

CO  "tQ 

.i’-e 

i 

o  £ 
CD  o 
*-  O 

.S'  c 

CL  O 

i  cn 
cn  3 


in 
£ 

£  £ 
o)  <5 

2  £ 

CL  O)  CD 


c 
o 

C3  '-S 

..  CO 

x-£  i. 


CD  O) 

o 


CD 


■C  cn 


si! 


co 


*=  o 


-6 

^  -a 

B  c 

I.  CD 

O  Q- 

cn 


.E  Q. 

C3  3 

C  o 

5) 

2  cn 
CO  cn 
S  P 


cn  o 
•£C0 
CD  . 
X)  CD 
3  "Cl 

^  R 


0) 


o 

CO 

cn 

CD 


o 

cO 


C  O) 

o  .E 
•O  CO 
o  .E 
■o 

Ti  o 
TO  CD 

.i=  C  o 
CD  CO  .Z 
C  T3 
CD  P 


c 

3 

cn 

k_ 

CD 

CD 


OJ  CL 

55  O) 
$  C 


o  P 
E  ■o 
c  p 


o  E 

W  5 


S-'3 
8^? 


o  >^ 

XD  P 
jC 

>k-*^ 

Is 

D> 

£  "cn 

CO  CD 

xz  -a 

ra'o 

g'o 


0 


cn 

Cl 


D) 


3.-^ 

E  X 

c  P  3 

ig-R 

CD  E 
O  r- 
P  O  .E 

O 

P  CJJ  ^ 

o  to  S 
P  o 


X3 

CD 

P 

C 


c 

X3  3 

^  E 

0  C 

cn  o  P 
o  x: 

2  o*" 

CD 

P  CD 


</) 

z 

2  c 


0  0 

X3 

2  O 

;P  0  -i: 
O  P  P 
P  P  £ 


W 

a...* 

c 

0 

E 

0 

k.. 

3 

cr 

0 


O 

< 

QC 

UJ 


U1 

a 

3 

I— 

W 


P 
.i=  ^ 

By- 


0 

<n 


3  C>-  0 

O  P  TD 
><TD  C 
O  3 

P  ^  n 

•p  CD-2 

^58 


HI 

> 

H- 

O 

Ui 

-> 

OQ 

o 


0 

Xi 

0 

P 

XI 

P 

3 

O 

c~ 

tn 

U) 

•*-» 

c 

0 

XJ 

3 

4.^ 

0 

0 

.C= 

I- 


0 

0 

C 

O) 

c: 

0 

0 

k_ 

0 


o 

« 

0 

u. 

o 

0 

o 

c 

0 

tz 

o 

Cl 

E 

c 

0 

x: 

o 

3 

W 

Ui 

>k 

_0 

Q. 

C 

o 

0 

O 

’c 

3 

£ 

E 

o 

o 

>> 

x: 

c: 

0 

CL 

X 

UJ 


•  • 


0 


•  9 


Megaprogramrr.ing  in  Aria  Course:  Software  Engineering, 


How  Do  Software  Engineers 
Spend  Their  Time? 


Copyright  ©  1995,  Software  Procfuctiv!t^onsort!Imr 


DISCUSSION 

The  discipline  of  software  engineering  emerged  to  solve  the  software  crisis.  Software  engineering  uses  sound 
engineering  principles  in  the  development  of  software  systems.  The  main  objective  of  software  engineering  is  to  facilitate 
the  production  of  high  quality  software  systems  within  budget  and  on  time. 

This  course  concentrates  on  three  aspects  of  software  engineering; 


^  OJ 

■S'  o 
'x  c 

0  3 

Q.  E 
E  E 
o  o 
o  o 


5  $ 

(/)  cn 

jQ.  ^ 

0  0 
-c  ^ 

Ui  D) 

c  c 

'k_  'C 
0  0 
0  0 
c  c 
O)  'o) 
c.  c 
0  0 
0  0 


—  OT  aj  o  "o 
p  03  x: o  0) 

_Q)  Q  ®  ^ 

■Q  d  P  9?  -o  9? 

o  E  ^  OT  n  *" 

t  aj  OT  « 

-■9  Dj®  S  2 


0  ?  0 
«  0)  .-2  -iS 


«  0)  .52 

2  ®  ”  g^'i  O 

°  °  ‘F  ®  3  .2 

>“  0)  £  m  g  o 

CL  O  _  ^  W 

0)  TO  55 

2  n  O  5  03  "C 

-C  CL  ^  ^  T3  0) 

W  CO  to  O  3  -Jo 

^  O  ®  03  O 


■g 

a> 

■O 

3  o 

Jt: 

£  0 

a> 

0  E 

0) 

E  0 

-C 

C  O-' 

0) 

.2^  E 

N 

0  -  • 

E 

0  n 
O  c  - 

c 

0  ^ 

ig-D-5  C_J 
C  03  §,-^ 

^  .23-c  i=  U)  D 

■S3  2  .2  <0  0)  o' 

0.0)  TO  C;  Q  c 

^  S  I  g  .£  I 

:i  cn  ^  o  iS 

^  ®  O  c  -i  “ 

To  g  I  g 

2  0)  .2  o  g  I 

(/3  d)  ‘jr  C  k,  $ 

o  S5  -S  c  o 
^  ^  ^  o  _g)  (/) 

-Q  ^  >.^  ‘w  r- 

o>  «  II  -S  I 

-Q  >  ^  3  — 

^  ^  j=  9  o  o 

g  c  g)>'xi  g 

®  £  ==  o. 


-g  O  g  CO  ■§  03 

o  "3  0-0  E  c 

jc  «  ^  2  c  w 

tit  "S^  03  £  c  3 

E  m2  ®  E  „ 

C  3  03  ^  o  QJ 

.03  cn  Q  c  C  w  ] 

-o  JD  CC  0)  -c  "  1 
0)  g  w  5  2  , 
og’oMog! 
3  C  :E  O  E  £  4 

O  CO  0  (CJ  t  o  0 

>  E  E  ! 


2  t?  o  w  E 
0)  «3  §,03  ra 

o  CO  E  E  CL 
><  c  CO 

l'"S|8 

■§  O  o  to£ 

^  D>^  h" 

O  $[(  • 

fc  m  0  Q.  W 

0  -o  it:  O  0 

«  >»^  °  E 
g  o  .N  I  8 

i§|«g 

,2  .E  V)  .2 

1-1  ^  « 

0  £  0  > 
a  E^£  ? 

.  0  c/3  0  o 

0  Q.'^  03  c 

®  S  £  i  :s 

1=  +-  3  :£  ,2: 

2  O'  "o 

C  CO  oj  C33_ 

0  0)  O  2 
E  .C  0  O  3 

Q.-  £  -Q  o 

^  .52  _  "o  ^ 

Q)  .2  C  3 

■D  O  .S  E  _ 

0t^2  O  E 

t.  .0^0 
g  P  o  O  5 
5  2  o  t.  o 

cE  §  CO  CL  ^ 

8|  E  ®  0 

0  8  g  ^  ro 
0  so  "o  ^ 
o  £  8  w  o 
"3200” 

8  3  £  .2  ® 

CD  JO  *-  Q.*- 
_f  ~  ^ 

Q.=  3  C  O 

—  5  J3  05  (/j 

O  3  ®  2  £ 

O  §,0  g  Q. 

-  s-js 

r-  >  3  .Q  0 

0  O  OE  0 

t  >•—  0 

0  0-3^0  . 

CL  0  2  -flj  .0  0 
E  <3  £  >  Q.  0 

52  2  5^5  -8  "o 
C  8-  O  E  N  g 

2  C  o  0  Q.  „ 

0  .03  0  0 

.2  0  3  0^0 
C  fl)  o  0 
go  >^0  o’g 

E  2  I  £  c  g 

C3  3  =  0  j:  “S: 

O.Q  to  5  F  2 


3  .E 

2,  © 

Q. 

0^ 

0  0 

J=  Q. 

ccJ 

0  Q- 

■O  “t 

O  o 

g  <1> 

0  o 

c,  0 

■q. 


W  o 


^  ^  ' 
ll  I  HN 


0  ^ 

^  ■§. 
0  _ 


0  ^ 
JC  0 
C03  03 

•E  .E 

0  0 
0  0 
.E  .2 

03  ‘03 

c  c 


.Q  *-  *- 

0  CO  55 

0  B  s 

^  ^  ? 


0  0 
JC  j: 


I  S-  X 

E  LU  UJ 


Large  Projects  Demand  Software 

Enaineerina 


^  c 

^  «)  .2 
■z  0)  -5 
(0  o  CO 

■n  ^  ^ 

O  S  £ 

S  £  £ 

•  •  • 


O  C  « 

CO  (A  O  c 

s  «  i  i 

3  ^  g  o  £ 

E  a>  1 

£  <  S  ■§  a 


X  ^ 

0)  E 

o  E 

E  .5>  S 
o  S  S 

O  Q  QC 


Megaprogramming  In  Ada  Course:  Software  Engineering,  1-7  Copyright  6 1995,  Software  Productivity  Consortium. 


DISCUSSION 

The  U.S.  Department  of  Defense  (DoD)  is  a  major  developer  and  user  of  computer  software.  In 
1974,  the  DoD  and  its  contractors  were  using  more  than  100  different  programming  languages. 
This  made  it  difficult  to  reuse  existing  software  and  transfer  software  engineers  from  one  project 
to  another.  A  single  standard  programming  language  was  needed. 
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UNITl:  SOFTWARE  ENGINEERING 

UNIT  SUMMARY 

Much  industrial  software  development  produces  very  large  software  systems,  consisting  of  millions 
of  lines  of  code.  Such  a  system  takes  years  to  develop.  It’s  a  team  effort,  not  an  individual  activity.  In 
fact,  a  software  system  is  typically  a  joint  effort  by  several  companies. 

Your  Computer  Science  courses  have  probably  concentrated  on  writing  code.  To  write  code  requires 
many  skills.  These  skills  include  mastering  a  programming  language,  using  algorithms  and  data 
structures,  and  using  a  compiler — all  fundamental  skills  you  need  each  time  you  create  a  program.  Yet 
despite  the  need  for  these  skills,  they  are  not  the  most  important  ones  professional  programmers 
possess.  Writing  code  is  the  smallest,  easiest  part  of  developing  software.  There  are  other  activities 
that  consume  far  more  time  and  require  much  greater  skill. 

Programming  in-the-large  (that  is,  developing  large  software  systems)  is  very  hard.  Most  large 
software  systems  are  delivered  later  than  planned  and  contain  bugs.  Many  people  even  believe  this 
country  faces  a  software  crisis  because  programming  in-the-large  is  so  difficult. 

Why  is  developing  large  software  systems  so  hard?  Much  of  the  reason  stems  from  two  factors:  change 
and  complexity.  We  will  study  change  and  complexity  in  this  course. 

Once  software  is  written,  it  changes.  This  is  a  fact  of  life.  When  you  write  software,  you  seldom 
anticipate  all  the  ways  it  will  be  used.  (Consider  that,  as  of  this  writing,  Microsoft  Corporation  has 
produced  six  versions  of  DOS,  six  versions  of  Word,  and  three  versions  of  Windows.)  Also,  you  seldom 
discover  all  the  bugs.  New  uses  and  bugs  call  for  change.  The  problem  with  change  is  not  that  it  occurs, 
but  that  implementing  a  seemingly  simple  change  often  require.s  huge  amounts  of  work.  If  you’ve  ever 
made  a  change  that  rippled  throughout  your  program,  you  understand  why.  Then  too,  think  of  how 
much  more  work  you  would  have  if  you  also  needed  to  change  user’s  manuals,  installation  guides,  and 
other  supporting  material  that  accompanies  large  software  systems. 

Programs  are  complex  because  of  the  sheer  number  of  details  inherent  in  them.  No  doubt  you  realize 
that  the  larger  your  program,  the  more  things  you  need  to  keep  track  of.  But  really,  complexity  only 
truly  manifests  itself  in  team  settings.  Though  you  may  understand  your  own  code  well  enough,  you’ll 
experience  troubles  explaining  its  inner  workings  to  someone  else  (you’ll  have  a  chance  to  try  in 
Unit  2).  Therefore,  when  you  write  software  in  a  team,  you  spend  much  of  your  time  communicating 
with  other  team  members  about  the  software.  You  also  spend  much  of  your  time  writing  technical 
documents  that  describe  your  work.  Management  briefings,  user’s  manuals,  and  design  reports  are 
examples  of  such  documents.  Therefore,  complexity  necessitates  communication. 

Change  and  communication  make  developing  software  potentially  very  problematic.  For  this  reason, 
this  course  shows  software  development  to  be  an  exercise  in  engineering.  This  is  why  Unit  1  introduces 
software  engineering  as  the  preferred  way  to  develop  software.  The  dictionary  defines  engineering  as 
the  disciplined  application  of  science  and  mathematics  in  making  systems  that  are  useful  to  humanity. 
Software  engineering  is  applying  science  and  mathematics  to  help  you  make  useful  software  systems. 

When  you  practice  software  engineering,  you  follow  a  software  development  process,  shown  in 
Figure  1 .  The  process  breaks  software  development  into  a  set  of  coherent  steps.  In  each  step,  you  foci '  s 
on  a  particular  aspect  of  developing  software: 


In  the  Requirements  step,  you  focus  on  the  problem  you  must  solve. 


•  In  the  Design  step,  you  focus  on  organizing  a  solution  to  the  problem  you  defined  in  the 
Requirements  step. 

•  In  the  Code  step,  you  write  source  code,  implementing  the  plan  you  created  in  the  Design  step. 

•  In  the  Test  step,  you  test  the  software  you  created  in  the  Code  step  to  be  certain  it  meets  the 
requirements  you  defined. 

Focusing  on  specific  areas  in  each  step  helps  you  deal  with  change  and  communication  problems. 


Figure  1,  The  Software  Development  Process 

Programming  languages  can  also  help  you  deal  with  change  and  communication  problems.  In  this 
course,  you  will  learn  about  the  programming  language  Ada.  You  will  see  how  a  software  developer, 
through  careful  and  correct  use  of  Ada’s  features,  can  facilitate  communication  of  necessary 
information  to  other  softv/are  developers  in  a  team.  You  will  also  see  how  developer.s  can  use  these 
features  to  lessen  the  workU  ad  in  response  to  change. 
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UNITl:  SOFTWARE  ENGINEERING 

GROUP  ACTIVITY 


Communication 

Your  Student  Government  Association  has  decided  to  purchase  a  vending  machine  and  wants  you  to 
build  it  from  the  following  parts: 

1.  A  money  acceptor 

2.  A  change  dispenser 

3.  A  set  of  food  dispensers 

4.  An  item  selector 

Split  into  groups.  Allocate  the  parts  among  the  people  in  your  group.  Working  independently, 
everyone  must  write  down  which  other  parts  they  think  will  interact  with  their  own  part.  When 
everyone  is  finished,  get  together  and  compare  your  results. 


HOMEWORK 


Look  up  the  definition  of  engineering  in  a  dictionary.  What  does  it  say?  Based  on  this  definition,  what 
do  you  think  software  engineering  is? 
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UNITl:  SOFTWARE  ENGINEERING 

TEACHER  NOTES  FOR  EXERCISES 
GROUP  ACTIVITY 


Communication 

Your  Student  Government  Association  has  decided  to  purchase  a  vending  machine  and  wants  you  to 
build  it  from  the  following  parts: 

1.  A  money  acceptor 

2.  A  change  dispenser 

3.  A  set  of  food  dispensers 

4.  An  item  selector 

5.  A  coin  return  button 

Each  of  these  is  visible  to  the  person  operating  the  machine,  Behind  the  scenes,  however,  they  work 
together  to  provide  people  with  vending  services. 

Split  into  groups.  Allocate  the  parts  among  the  people  in  your  group.  Working  independently, 
everyone  must  write  down  which  other  parts  they  think  will  interact  with  their  own  part.  When 
everyone  is  finished,  get  together  and  compare  your  results. 


Figure  2.  Interaction  Among  Vending  Machine  Parts 

That  is,  the  money  acceptor  lets  the  item  selector  know  how  much  money  has  been  fed  in  to  date.  The  item 
selector  notifies  the  food  dispenserwhen  the  person  makes  a  choice  and  arranges  for  change  to  be  dispensed 
if  the  person  has  fed  in  more  money  than  the  item  costs.  The  money  acceptor  also  notifies  the  coin  retiini 
how  much  has  been  fed  in;  if  the  person  presses  the  coin  return  button,  then  the  coin  return  has  the  change 
dispenser  provide  change. 

This  is  only  one  pos.sible  solution.  When  students  do  this  activity,  they  will  probably  come  up  with  conflicting 
ideas  of  how  the  parts  interact.  Of  course,  if  they  had  agreed  on  how  each  part  behaves  beforehand,  they 
would  not  have  had  this  difficulty. 

This  activity  illustrates  the  need  for  communication  in  software.  Too  often,  group  members  begin  working 
without  a  clear  idea  of  what  everyone  else  is  doing.  The  result  is  akin  to  what  the  .students  will  experience 
in  this  activity. 


•  •••••• 


MeRaproRramminR  in  Ada  Course:  Software  Ensineerins,  Workbook 


HOMEWORK 

Look  up  the  definition  of  engineering  in  a  dictionary.  What  does  it  say?  Based  on  this  definition,  what 
do  you  think  software  engineering  is? 

Dictionaries  define  engineering  as  the  application  of  science  and  mathematics  (some  add  arts)  in  order  to 
make  properties  of  matter  and  nature  useful  to  humanity  in  structures,  machines,  systems,  or  processes. 

Software  engineering  then,  is  the  application  of  science,  mathematics,  and  arts  (to  appreciate  the  artistic 
component,  look  at  some  modem  multimedia  applications)  in  order  to  make  properties  of  matter  and 
nature  useful  to  humanity  in  creating  software  systems.  There  are  two  types  of  properties: 

1.  Properties  of  matter  and  nature.  These  come  from  the  problem  you  ’re  solving.  For  example,  if  you 
are  writing  a  program  that  calculates  the  time  a  ball  takes  to  fall  when  dropped  from  a  certain  height, 
you  use  properties  of  gravity  as  determined  by  the  laws  of physics. 

2.  Properties  of  software.  Software  is  not  matter,  and  it  does  not  occur  in  nature,  so  we  must  consider 
its  properties  separately.  Software  properties  include  algorithm  execution  speed  (the  big  O  notation ) 
and  memory  use.  These  properties  are  what  make  up  the  discipline  of  computer  science. 


DISCUSSION 

Software  complexity  is  a  major  issue  facir»g  large  software  development  efforts.  Abstraction  is 
one  of  the  fundamental  ways  that  humans  cope  with  complexity.  An  abstraction  provides  a 
simple  view  of  a  problem  by  summarizing  the  interesting  and  essentia!  properties.  In  other 
words,  you  emphasize  details  that  are  significant  and  suppress  details  that  are  not. 
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Abstraction 
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DISCUSSION 

Our  design  consists  of  three  modules:  a  module  to  read  the  input  file,  a  control  module  to  store 
the  numbers  in  reverse  order,  and  a  module  to  write  the  output  file.  Concentrating  on  the  control 
module,  what  is  a  good  abstraction  for  storing  numbers  in  reverse  order?  A  stack.  Let’s  create  a 
stack  module  to  store  the  the  numbers  from  the  input  file. 
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DISCUSSION 

A  stack  is  a  sequence  of  items  in  which  Items  are  added  and  removed  from  the  top  of  the  stack. 
The  details  or  behavior  that  are  important  to  us  for  a  stack  are: 

•  Every  stack  has  a  top  (you  can  read  the  topmost  item  on  the  stack). 
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Using  a  Stack  Abstraction 
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DISCUSSION 

A  specification  defines  the  behavior  of  an  abstraction.  A  specification  defines  the  visible  parts  of  the  abstraction. 
A  specification  serves  as  a  contract  between  the  implementer  o*  ♦he  abstraction  and  a  user  of  the  abstraction. 
The  important  point  here  is  that  a  user  of  the  specification  defines  the  operations,  not  how  those  operations  will 
be  implemented.  This  means  identifying  the  name  of  the  operation  and  its  input  and  output  parameters,  if  any. 


stack  Specification 
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DISCUSSION 

Eventually,  you  have  to  implement  the  various  operations  for  the  stack  program.  You  do  this  by 
writing  the  Ada  package  body. 

The  Ada  package  body  provides  the  implementation  of  the  subprograms  defined  in  the  package 
specification.  For  every  procedure  and  function  you  define  in  the  specification,  you  must 
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DISCUSSION 

When  one  package  or  subprogram  uses  operations,  types,  or  variables  provided  by  another  package,  it  must 
name  that  package  in  a  “with”  clause.  A  with  clause  allows  you  to  include  a  package  specification  into  your  unit. 
This  allows  a  package  or  subprogram  to  gain  visibility  into  the  Ada  specification  being  named.  Once  other 
developers  have  “withed”  the  compilation  unit,  they  can  invoke  or  use  anything  in  the  specification. 
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DISCUSSION 

A  package  specification  allows  us  to  deal  with  complexity  by  implementing  a  problem  separately 
from  the  solutions  to  other  problems.  As  a  programmer,  you  design  the  interface  to  your  solution. 
(For  the  lnteger_Stack  package,  this  is  when  we  specified  the  procedures  and  functions  we  would 
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DISCUSSION 

This  slide  summarizes  the  topics  covered  in  Unit  2. 

Abstraction  allows  you  to  manage  complexity  and  enhance  communication  by  concentrating  on 
essential  information.  Think  about  how  lucky  we  are  that  we  can  defer  tough  decisions  until  later 
(e.g.,  an  actual  implementation  of  a  stack).  We  use  abstraction  in  our  every  day  lives,  not  just  to 
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UNIT  2:  ABSTRACTION 

UNIT  SUMMARY 


Abstraction 

Abstraction  is  a  technique  employed  during  software  design.  It  lets  the  developer  temporarily 
suppress  irrelevant  details  so  he  or  she  can  concentrate  on  essential  information.  Developing  software 
requires  defining  a  great  deal  of  detail,  so  any  techniques  that  can  be  used  to  consider  information 
selectively  are  of  great  value.  Abstraction  is  one  such  technique. 

What  is  “essential  information”  and  what  are  “irrelevant  details”?  Typically,  essential  information  is 
the  data  you  need  in  your  program  and  what  you  will  do  with  it.  The  irrelevant  details  are  how  you  will 
represent  that  data.  In  general,  you  can  use  this  division  into  what  versus  how  to  help  you  differentiate 
between  essential  information  and  irrelevant  details. 

For  example,  suppose  a  program  is  to  create  a  file  of  integers  whose  content  is  that  of  another  file  of 
integers,  but  in  reverse  order.  You  can  design  a  program  that  does  this  as  follows.  The  program  will 
read  the  integers  from  the  input  file,  storing  each  one  on  a  slack  as  it  is  read.  When  all  integers  have 
been  read,  the  program  will  pop  each  integer  off  the  top  of  the  stack  and  write  it  to  the  output  file. 
In  this  design,  you  have  created  four  modules:  one  to  read  input,  one  to  write  output,  one  to  hold  the 
stack,  and  one  to  control  the  others  (see  Figure  1). 


Input 

Control  1 

Output 

Module 

* 

Modulo 

Modulo 

Figure  1.  Module  Design  for  Reversing  a  File  of  Integers 

Wheii  you’re  working  in  a  team,  it’s  important  to  create  the  module  design.  You  can  assign  each  person 
one  or  more  modules.  This  is  a  good  way  for  team  members  to  work  together. 

Recall  that  a  stack  is  a  linear  list  of  values  accessible  only  through  a  fixed  set  of  operations:  Push,  Pop, 
Top,  Is__Empty,  and  Size.  This  statement  of  a  stack  is  an  abstraction.  It  proclaims  the  essential 
information — namely,  what  five  operations  can  be  used  to  access  a  stack.  It  also  defines  what  kind  of 
descriptive  information  other  packages  can  see,  for  example,  the  stack’s  size.  It  suppresses  irrelevant 
details,  such  as  how  the  stack  will  be  represented. 
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This  essential  information  is  the  abstraction’s  specification.  In  Ada,  you  can  package  the  essential 
information  to  show  its  interrelatedness.* 

pBckaga  Integer_Stack  is 

proc«dur«  Push (Element:  in  Integer); 
procadure  Fop; 

function  Is_Empty  return  Boolean; 

function  Top  return  Integer; 
function  Size  return  Integer; 
and  Integer_Stack; 

In  Ada,  the  package  construct  groups  together  a  set  of  procedures  and  functions.  (You  can  also  include 
constants,  variables,  and  data  types,  as  will  be  shown  later.)  Everything  between  the  first  line  and  the 
end  line  is  declared  to  be  part  of  the  package  specification.  This  package  specification  declares  two 
procedures  and  three  functions.  The  first  procedure.  Push,  has  a  single  parameter.  Element.  This 
parameter  is  declared  in,  which  means  that  you  must  supply  a  value  for  it  when  you  invoke  it. 
Furthermore,  its  value  will  be  unchanged  when  Push  finishes. 

The  specification  gives  you  enough  essential  information  to  let  you  write  most  of  the  program,** 


with  Integer_Stack; 
procadurs  Write_Output:  is 
Element:  Integer; 

begin 

Open  (Output_Eilei  OuL_l'’ile, 
Eile_Name) ; 

Set_Output  (Output_l''ile)  ; 
while  Integer_Stack . Size  >  0  loop 
Element  Intoger_Stack . Top ; 

Put (Element) ; 

Integer_Stdck . Pop ; 
end  loop ; 

Close  (Output_I''ile)  ; 
end  Write_Output ; 

These  two  procedures  both  begin  with,  the  line  with  integer_.gt;a(-:k,  meaning  that  the  iiiforniatioii 
in  the  package  specification  of  integer_stack  is  within  their  scope.  They  can,  therefore,  within 
invoke  Push,  Pop,  Toi),  and  size.  Notice  that  references  to  these  procedures  and  functions  arc 
preceded  by  the  package’s  name  and  a  period;  e.g.,  integer_stack .  Pop.  This  is  Ada’s  way  to  avoid 
ambiguities,  since  other  packages  might  have  procedures  and  functions  with  the  same  names  as  those 
found  in  Integor_Stack, 

The  package  specification  scrve.s  as  a  contract  with  other  modules  in  the  program.  When  you  write 
it,  you  are  suppressing  the  implementation  as  an  irrelevant  detail  but  promising  that  you  will  develop 
an  implementation  that  provides  the  functions  stated  in  the  specification.  In  Ada,  you  place  this 
implementation  in  a  package  body,  which  is  separate  from  the  package  specification. 


with  Integer_Stack; 
procedure  Read_Input  is 
Element;  Integer; 

begin 

Open(lnput_File,  In_File, 
File_Namc) ; 

Set_lnput ( lnput_FilG)  ; 
while  not  Eud_Of_Filu  loop 
Get (Element ) ; 

IntegQr_Stack . Pusli  ( Element ) ; 

end  loop; 

Close ( Input_File) ; 
end  Heaol_lnput; 


*  In  ttic  cciiic;  Iragnients,  Ada  reserved  v'orils  are  .shown  in  boldface  typo. 

*'  For  simplieily  and  clarity,  the  code  examples  omit  details  of  file  input  and  output. 


pKCkage  body  Integer_Stack  is 
Index:  Integer  :=  1; 

typs  Stack_Repre.sentation  is  array  (1..100)  of  Integer; 

Stack:  Stack_Representation; 

procadura  PuL;h  (Element :  in  Integer)  is 

bagin 

Stack (Index)  :=  Element; 

Index  : =  Index  +  1 ; 
and  Push; 

prooedura  Pop  is 
bagin 

Index  : =  Index  -  1 ; 
and  Pop ; 

function  Top  return  Integer  is 
bagin 

return  Stack_Contents ( lndex-1 ) ; 
end  Top; 

function  Size  return  Integer  is 
begin 

return  Index  1 ; 
end  size; 

and  lnteger_Stack; 

Other  modules,  sucli  as  K<jad_input  imd  Write_output,  do  not  need  to  know  any  details  ol'  tlie 
implementation.  They  only  need  tlie  inl'oi  mation  in  the  sjiceirieation.  Tlie  Ada  programming  language 
enforces  tliis.  Head_input  and  WriLe_Output  can  access  the  iidbrmation  in  tlie  package 
specification,  but  cannot  access  the  information  in  tlic  package  body.  They  can  invoke  size  but  ctinnot 
determine  tliat  stack  is  an  array  or  that  size  works  by  accessing  the  variable  i  ndox.  'I'lie  designer 
of  integtu-._stack  has  liiddcn  the  irrelevant  details.  This  shows  how  you  can  use  abstraction  to  write 
a  module  that  shows  to  other  modules  only  wliat  you  consider  to  bo  essential  information. 

Ada  packages  help  teams  design  and  iinjileinent  |)iograms  using  abstraction.  A  team  Vi/ill  assign  a 
single  developer  the  responsibility  to  develop  a  module  such  as  a  slack.  I'iie  developer  will  design  an 
Ada  package  .specification  for  the  stack.  Me  or  she  will  then  compile  the  slack’s  s]reeifieation  and  place 
it  in  a  central  library  that  all  the  other  team  members  can  acce.ss.  The  other  members  who  need  a  stack 
can  reference  the  abstraction  as  they  develop  their  own  programs.  'I'lii.s  gives  them  access  to  exactly 
enough  information  to  design  and  implement  their  own  modules.  Meanwhile,  the  stack  developer  will 
implement  the  package  body  foi  the  stack,  then  compile  the  package  boily  and  place  it  in  the  library. 
Note  that  other  team  members  can  compile  their  modules  without  the  stack  package  body,  but  they 
can’t  execute  them  until  the  stack  package  body  has  been  placed  in  the  library! 
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UNIT  2:  ABSTRACTION 


GROUP  ACTIVITY 

Split  the  class  into  two-person  teams.  One  member  of  the  team  should  examine  the  following  code: 

typa  A  is  array  (<>)  of  Integer; 
procadura  p(pl:  in  A; 

p2  :  In  Integer; 
p3 :  out  Integer)  la 
u,  m,  1:  Integer; 
bagln 

1  : =  a ' first ; 
u  :=  a 'last; 
vrhila  1  <  u  loop 
m  :=  (l+u)/2; 
if  pl{m)  =  p2  than 
p3  ;=  nt; 
return; 

elslf  pi (m)  >  p2  than 

u  :  -  ni-  1 ; 

else 

1  lu  +  1; 
and  If; 
and  loop; 

p3  ;■  a' first- 1; 
and  p; 

Describe  the  irrclcvunl  information  in  this  code  to  your  partner.  In  other  words,  do  not  discuss  what 
you  believe  is  tlie  purpose  of  this  code.  Instead,  discuss  only  tlic  algorithms  and  the  data  it  uses. 

Your  partner  is  to  guess  the  essential  information  from  your  description:  what  imrpose  the  code 
accomplishes.  The  essential  ial'ormation  should  be  de.sciibed  in  lernis  of  two  things: 

•  'I'he  value  of  p3  when  the  procedure  finishes  executing 

•  The  name  of  the  procedure 


This  page  intentionally  left  blank. 
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UNIT  2:  ABSTRACTION 


TEACHER  NOTES  FOR  GROUP  ACTIVITY 

Split  the  class  into  two-person  teams.  One  member  of  the  team  should  examine  the  following  code: 

cyp*  A  is  array  (<>)  of  Integer; 
procadura  p(pl:  In  A; 

p2  :  in  Integer; 
p3 :  out  Integer)  is 
u,  m,  1:  Integer; 
bagln 

1  ;=  a'first; 
u  :=  a 'last; 
while  1  <  u  loop 
n\  (l+u)/2; 
if  pi (m)  =  p2  than 
p3  :=  in; 
ratum; 

alsif  pi  (ni)  >  p2  then 
u  :=  m-1; 

else 

1  :=  Ill  +  1; 

0  and  if; 

and  loop; 

p3  :=  a'tirst-1; 
and  p; 

A  few  words  are  in  order  to  the  teacher  who  knows  Pascal  but  not  Ada.  You  may  wish  to  rewrite  this  example 
in  Pascal  for  your  students,  since  the  purpose  of  the  activity  is  to  understand  the  algorithm  rather  than  to 
learn  Ada.  In  any  case,  here  is  some  explanation  of  the  code. 

•  The  notation  <  >  in  the  top  line  is  Ada ’s  natation  for  unconstrained  array  bounds  that  are 
determined  when  a  procedure  is  called.  Thus,  any  array  of  integers  can  he  passed  to  p.  The  notations 
a  'first  and  a  'last  (read  "a  tic  first”  and  "a  tic  last,”  respectively)  are  the  upper  and  lower 
induces  of  whatever  array  is  passed  to  p. 

•  Instead  of  Pascal's 

whlla  condition  do  bagln 
statementl ; 

stateinentn 

and 

Ada  uses 

whlla  condition  loop 
statementl ; 
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statementn; 

•nd  loop; 

•  Ada’s  return  statement  causes  control  to  return  immediately  from  the  procedure  in  which  it’s 
executed. 

•  Instead  of  Pascal’s 

If  conditionl  than  bagln 

statementl;  ...  ;  statementn 

•nd 

•laa  If  condition2  than  bacrin 

statementa ;  ...  ;  statementz 

and 

alaa  bagln 

statementA;  ...  ;  statemontZ 

and 

Ada  uses 

if  conditionl  than 

stateniontl ;  ...  statementn; 

alalf  condition2  than 

stateraenta;  . . . ;  statementz; 

alaa 

StatementA;  . . . ;  statementZ; 

and  If; 

Matching  each  if  with  an  end  if  eliminates  the  need  for  begin  blocks.  Note  also  the  els  if, 
which  clearly  shows  that  cundi  tion2  logically  matches  condi  tioni. 

De.scribc  the  irrelevant  information  in  this  code  to  your  partner.  In  other  words,  do  not  discuss  what 
you  believe  is  the  purpose  of  this  code.  Instead,  discuss  only  the  algorithms  and  the  data  it  uses, 

Your  partner  is  to  guess  the  es.sential  information  from  your  description:  what  purpose  the  code 
accomplishes.  The  essential  information  should  be  described  in  terms  of  two  things: 

•  The  value  of  p3  when  the  procedure  finishes  executing 

•  The  name  of  the  procedure 

The  procedure  p  is  a  binary  search  algorithm.  The  identifier  names  are  deliberately  abbreviated  to  make 
the  activity  more  challenging.  A  better  declaration  would  be: 

procadura  Per f<jrm_Binary_Search (Values ;  in  A; 

Eleraent_To_Search_Kor :  in  Integer; 

Location_0£_Element :  out  Integer) ; 

This  procedure  specification  .succinctly  captures  that  essential  information  which  must  he  known  to 
developers  that  use  this  procedure.  However,  as  they  write  their  module.s,  they  do  not  care  about  details  of 
the  implementations  like  the  identifier  names. 
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The  student  asked  to  listen  to  her  or  his  partner  should,  in  effect,  come  up  with  this  declaration.  In  other 
words,  the  procedure  takes  as  input  a  sorted  array  of  integers  (pi)  and  an  integer  value  (p2).  It  returns  in 
p3  the  index  of  the  value  if  the  value  exists  in  the  array.  If  the  value  is  not  in  the  array,  it  returns  in  p3  the 
integer  value  that  is  one  less  than  the  first  valid  index  into  pi.  The  student  presenting  the  irrelevant  details 
might  say  something  like: 

"The  procedure  has  two  inputs.  One  is  an  array  of  integers.  The  second  is  an  integer.  It  declares  three  integer 
variables. 

"It  begins  by  assigning  two  of  the  variables  the  lower  and  upper  bounds  of  the  array.  It  then  checks  to  see 
if  the  second  parameter  equals  the  value  midway  between  these  two  bounds.  If  it  does,  then  the  procedure 
assigns  the  index  of  the  middle  value  to  the  third  parameter  and  exits. 

"If  the  second  parameter  does  not  equal  the  value  in  the  middle  of  the  array,  the  procedure  resets  the  bounds 
it  will  check.  If  the  second  parameter  is  greater  than  the  value  in  the  middle  of  the  array,  the  bounds  arc  reset 
to  the  first  half  of  the  array.  Otherwise,  they  are  reset  to  the  second  half  of  the  array. 

“This  process  repeats  until  a  value  matching  the  second  parameter  is  found,  or  until  the  difference  between 
the  bound  is  0  or  less.  In  the  fanner  case,  the  third  parameter  is  set  to  the  index  of  the  matching  value.  In 
the  latter  case,  it  is  set  to  one  less  than  the  array’s  lower  bourui. " 

This  activity  will  be  very  difficult  if  students  do  not  know  the  algorithm.  If  your  students  have  not  learned 
about  binary  searching,  you  should  substitute  an  algorithm  you  have  previously  taught  them. 
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DISCUSSION 

This  slide  discusses  the  stepwise  refinement  design  method.  Stepwise  refinement  is  the  first  method 
most  students  learn. 

In  this  slide,  stepwise  refinement  is  used  to  create  a  program  that  solves  a  problem  similar  to  the  one 
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Students  should  be  able  to; 

•  Explain  the  actions  each  module  performs 
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DISCUSSION 

This  slide  shows  a  stepwise  refinement  hazard:  problems  can  arise  from  changing  an  early  decision. 

Suppose  you  change  the  representation  of  Data.  For  instance,  suppose  it’s  an  array  and  you  want  to 
change  it  to  a  linked  list.  Look  at  all  the  places  where  it’s  referenced  (shown  in  boldface).  You  will 
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DISCUSSION 

This  slide  shows  the  chain  of  decisions  the  designer  made  when  creating  the  design  for  this  program. 

The  slide  shows  both  the  decisions  and  the  order  in  which  the  designer  made  them.  Any  time  you 
design  a  program,  you  follow  a  thought  process  like  what  this  slide  depicts. 

The  representation  of  Data  depends  on  the  algorithm  for  the  main  module.  If  you  had  decided  on  an 
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Explain  the  goal  of  this  decomposition  versus  the  one  created  using  stepwise  refinement 
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DISCUSSION 

This  slide  sho.vs  the  decision  chain  for  information  hiding. 
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Explain  the  first  decisions  you  make  in  information  hiding 
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DISCUSSION 

This  slide  shovi/s  an  interface  for  the  Line  Holder  module. 

The  Line  Holder  holds  a  list  of  lines.  You  need  it  to  provide  the  sarrie  capabilities  the  array  did  in  the 
stepwise  refinement-derived  program.  It  must  let  you  store  lines,  access  lines  stored,  and  determine 
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DISCUSSION 

This  slide  summarizes  the  topics  co  ered  in  Unit  3. 

In  software  design,  you  break  up  a  problem  into  a  set  of  modules  that,  working  together,  solve  the 
problem.  You  should  do  this  to  help  you  manage  the  com-  axity  of  the  solution.  Think  of  how  hard  it 
wou'T  oe  to  write  programs  if  you  couldn’t  use  procedures  o.  jnctions. 
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UNIT  3:  INFORMATION  HIDING 


UNIT  SUMMARY 

The  first  step  of  developing  software  from  requirements  is  to  create  a  design.  In  design,  you  break  a 
problem  into  a  set  of  modules  and  a  structure.  The  modules,  working  together  in  accordance  with  this 
structure,  form  a  solution  to  the  problem.  Breaking  a  problem  into  modules  is  important  for  two 
reasons.  First,  it  helps  you  deal  with  the  complexity  of  software  because  you  can  grasp  the  workings 
of  a  small  module  more  easily  than  you  can  grasp  the  worldngs  of  an  entire  program.  Second,  if  you 
are  part  of  a  team,  it  lets  you  allocate  work  assignments  among  the  team  members. 

Stepwise  refinement  is  a  popular  design  method.  In  stepwise  refinement,  you  break  up  a  problem  by 
creating  an  algorithm  to  solve  that  problem.  At  first,  you  keep  each  of  the  steps  of  the  algorithm 
abstract.  If  you  cannot  express  a  step  as  a  single  instruction  in  a  programming  language,  you  refine 
it  into  another  algorithm.  You  do  this  for  each  step  and  for  each  step  of  each  algorithm  you  create. 
You  keep  refining  until  you  can  express  every  step  as  a  single  computer  instruction. 

At  each  refinement,  you  are  making  a  decision.  Once  you  have  made  the  decision,  subsequent 
decisions  will  depend  on  that  decision.  You  can  think  of  design  as  a  chain  of  decisions. 

As  an  example,  let’s  consider  the  problem  from  Unit  2  of  reading,  reversing,  and  writing.  In  this  unit, 
we  shall  change  the  example  slightly: 

•  The  program  will  read  and  reverse  a  set  of  lines,  not  integers.  The  reason  for  this  change  will 
become  clear  in  Unit  4. 

•  A  stack  is  not  used  to  solve  the  problem.  The  implementation  chosen  here  more  clearly 
compares  and  contrasts  stepwise  refinement  and  information  hiding. 

You  begin  stepwise  refinement  by  creating  a  main  module.  This  module  describes  an  algorithm  that 
will  solve  the  problem  and  the  data  structures  used  in  the  algorithm.  You  do  not  state  the  algorithm 
exactly,  but  rather  use  procedures  and  functions  to  describe  large  processing  steps.  For  example,  the 
main  module  for  the  Reverscr  program  is: 

procedure  Reverse_File  is 

type  List_Of_Lines  is  array { 1 .. 1000 )  of  String  (1 ,. 255) ; 

Data:  List_Of_Lines ; 

Input„File_Nanie .  constant  String  :=  "input.txt"; 

Output_File_Name :  constant  String  ;=  "output . Cxt" ; 

I:  Integer; 

be^in 

kead_File (Input_File_Name,  Data,  I); 

Reverse_Lines (Data,  I); 

Write_File (Output_File_Narne,  Data,  I ) ; 
end  Reverse_File; 

This  describes  a  straightforward  algorithm:  read  a  file’s  contents  into  a  variable  named  Data,  reverse 
the  contents  of  Data,  and  write  Daca  to  another  file. 
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You  next  decompose  each  procedure.  You  might  decompose  Read_File  as  follows:* 

procAdur*  Read_File ( Input_File_Narae: in  String; 

Data:  out  List_Of_Lines ; 

I:  in  out  Integer)  is 

F:  file_type; 

Length.  Integer; 

bogin 

Open(F,  In_File,  Input_File_N£me) ; 

Set_Input (F)  ; 

I  :=  Data' first, • 
while  not  End_Of_File  loop 
Get_Line (Data (I) ,  Length); 

I  :=  I  +  1; 
and  loop; 
end  Read_File; 

In  Ada,  a  procedure  may  have  parameters  that  are  declared  in,  out,  and  in  out.  The  Unit  2 
Summary  described  in  parameters.  An  out  parameter  is  one  whose  value  may  be  set  but  not  accessed. 
A  procedure  can  both  set  and  access  an  in  out  parameter. 

The  notation  Data '  first  is  the  lower  index  bound  of  the  array  Data.  This  notation  helps  you  write 
code  that  does  not  need  to  change  if,  for  some  reason,  you  decide  to  change  the  index  range  of  an  array. 

You  follow  this  strategy  until  no  procedure  contains  any  procedures  that  need  to  be  decomposed.  Here 
are  Reverse  and  WriCe_File: 

procadura  Reverse_ Li nes (Data :  in  out  List_Of„Lines ; 

I:  in  integer)  is 
Copy— Of —Data :  List_Of_Lines ; 

begin 

Copy_Of,_Data  :=  Data; 
for  J  in  Data' first  ..  I-l  loop 
Data(J)  :=  Copy_oe._Data  ( I-J)  ; 

and  loop ; 

end  Reverse_Lines ; 

procedure  Write_FilG (Output_File_Narae ; in  String; 

Data :  in  LiL  '  Of_Lines; 

I:  in  Inttger)  is 

F:  file_type; 

begin 

Create(F,  Out_FilG,  Output_File_Naine) ; 

Set_Output (F) ; 

for  J  in  Data' first  ..  I-l  loop 
Fut_Line (Data ( J) ) ; 
and  loop; 
end  Wiite_File; 

You  can  see  from  the  above  discussion  that  Figure  1  is  the  decision  chain  followed  to  derive  this 
program  using  stepwise  refinement. 

*  For  .siniplidly  and  clarity,  the  code  examples  omit  detaiLs  of  file  input  and  output. 
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Algorithm  for 
main  module 

i 


Representation  of 
Data  (array) 


Algorithm  for  Algorithm  for  Algorithm  for 

reading  file  reversing  writing  file 

i  i  i 

Use  a  while  loop  Use  a  for  loop  Use  a  for  loop 

Figure  1.  Decision  Chain  for  Stepwise  Refinement 


Stepwise  refinement  has  a  hazard.  The  decisions  made  early  are  often  crucial  ones  and,  also,  are  often 
subject  to  change.  Because  decisions  made  late  in  the  design  depend  on  decisions  made  early, 
changing  a  decision  made  early  often  has  global  repercussions  and  necessitates  many  changes  to  the 
software.  Such  a  change  is  especially  troublesome  in  a  team  because  news  of  the  change  must  be 
communicated  to  all  relevant  team  members.  Think  of  how  difficult  this  must  be  on  a  project  involving 
teams  scattered  across  the  nation  at  several  companies.  You  can  easily  sec  why  change  is  one  of  the 
great  contributors  to  faulty  and  costly  software. 

Information  liding  is  a  design  method  that  helps  you  deal  with  change.  When  you  perform 
information  hiding,  you  use  the  principles  of  abstraction  covered  in  Unit  2.  You  describe  each  module 
in  terms  of  an  interface  and  hidden  information.  The  interface  defines  exactly  what  other  modules 
can  know  and  use:  the  essential  information.  The  hidden  information  states  things  no  other  module 
may  assume:  the  irrelevant  details  (u relevant  insofar  as  other  modules  are  concerned).  This  leads  to 
designs  where  changes  are  confined  to  a  few  modules. 

In  stepwise  refinement,  the  early  decisions  focus  on  algorithms.  In  information  hiding,  they  focus 
more  on  modules.  Figure  2  shows  the  decision  chain  for  the  Reverser  program  derived  using 
information  hiding. 


Decide  (o  .separate  decision  chains  for: 

■  •  Modules  that  read,  reverse,  and  write 
•  Modules  that  store  data  — 
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Figure  2,  Decision  Chain  for  Information  Hiding 
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Information  hiding  gives  you  criteria  you  can  use  to  judge  the  quality  of  your  design: 

•  A  module  is  designed  well  if  it  does  not  know  any  of  the  hidden  information  of  other  modules. 

•  A  module  is  designed  badly  if  the  decisions  in  it  depend  on  decisions  in  other  modules  (e.g., 
if  Reverse_Fiie  assumes  Stack  is  implemented  using  an  array). 

•  Your  objective  during  design  is  to  minimize  the  number  of  badly  designed  modules. 

The  ability  to  judge  a  design’s  quality  is  an  important  part  of  sound  engineering  practice. 

Once  you  have  created  your  design;  you  must  implement  it.  The  Ada  programming  language  has 
features  that  help  you  hide  information  as  you  write  modules; 

•  You  can  use  a  package  to  implement  a  module  defined  by  information  hiding.  You  can  use  the 
package  specification  to  show  the  interface.  You  can  use  the  package  body  to  implement  the 
hidden  information.  The  rules  of  Ada  allow  other  packages  to  access  any  information  in  a 
package  specification,  but  do  not  allow  other  modules  to  access  information  in  the  package’s 
body. 

•  You  can  use  private  types  to  ensure  that  data  type  representations  are  hidden  information. 
Private  types  declare  a  data  type  name  that  other  packages  may  access,  but  they  forbid  other 
packages  from  making  any  assumptions  about  the  representation  of  the  data. 

Here  is  the  Line  Holder  module  implementt  '  as  an  Ada  package.  First,  the  package  specification: 

package  Line_Holder  ia 

type  LiHt_Of_Line3  is  private; 
subtype  Line  is  String ( 1 .. 255) ; 

procedure  Initialize (Li nes ;  out  List_Of_Lines) ; 

procedure  Add_Line_To_List (Line_To_Add; in  Line; 

Lines:  in  out  List_Of_Lines ) ; 

function  Line_Number (Lines ;  in  List_0£_Lines ;  I:  in  Integer) 
return  Line; 

function  Nuinber_Of_Lines (Lines ;  in  List_Of_Lines )  return  Integer; 
private 

Max_Lines :  constant  Integer  ;=  10000; 
typo  Lines  is  array (1 . .Max_Lines)  of  Line; 
type  List_Of_Lines  is  record 

Number;  Integer  range  0 . . Max_Lines ; 

Values:  Lines; 
end  record ; 
end  Line_Holder; 

The  type  LiEt_of_Line.s  is  declared  private.  This  means  other  packages  may  reference  its  name  and 
declare  variables  of  the  type,  but  they  cannot  reference  its  representation.  This  forces  them  to 
manipulate  variables  of  type  List  _Of_Lines  through  the  procedures  and  functions  provided  in  the 
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package  specification,  the  only  ones  permitted  to  access  the  representation.  In  this  way,  the  designer 
of  the  Line_Hclder  package  controls  what  is  essential  information  and  what  is  hidden. 

The  package’s  private  part  contains  the  representation  of  List_of_Lines.  The  private  part  is  that 
part  following  the  reserved  word  private  up  to  the  end  of  the  package  specification.  The  private  part 
declares  a  list  of  lines  to  be  a  record  containing  an  array  of  lines  and  an  integer  variable  that  can  store 
how  much  of  the  array  is  in  use. 

Next,  the  package  body; 

package  body  Line_Holder  is 

procedure  Initialize ( Lines :  out  List_Of_Lines )  is 

begin 

Lines. Number  :=  0; 
end  Initialize; 

procedure  Add_Line_To_Lis t ( Line_To._Add; in  Line; 

Lines:  in  out  List_Of_Lines )  is 

begin 

Lines. Number  :=  Lines . Number  +  1; 

Lines .Values ( Lines . Number )  ;=  Line_To_Add; 
and  Add_Line_To_List ; 

function  Line_Nun\ber ( Lines :  in  List_Of_Lines ;  I;  in  integer) 
return  Line  is 
begin 

return  Lines .Values (I) ; 
end  Line_Number ; 

function  Nuraber_Of_Lines ( Lines :  in  List_Of_Lines )  return  Integer  is 

begin 

return  Lines . Number ; 
end  Number_Of_Lines ; 

end  Line_Holder; 

The  interface  to  the  Line_Holder  package  gives  you  enough  information  and  functionality  to  write 
the  other  modules  in  the  program.  The  main  module  uses  it  only  to  declare  variables  of  type 
LisL_0£_Lines.  Unlike  the  stepwise  refinement  version,  it  has  no  knowledge  of  how  a  list  of  lines 
is  represented,  so  changes  to  the  representation  won’t  affect  the  main  module — or  any  other  module. 
Here  is  the  main  module: 

with  Line_Holder,  Read_File,  Write_FilG,  Reverse_Lines ; 
procedure  Reverse_File  ie 

Input_File_Name ;  constant  String  :=  "input.txt"; 

OuCput_File_Name ;  constant  String  :=  'output . txt" ; 

Input_Lines,  Output_.Lines :  Line_Holder . List_Of_Lines ; 
begin 

Read_File < Input_Fi le_Nanie ,  Input_Lines) ; 

Reverse_Lines ( Input_Lines ,  Output_Lines ) ; 

Wr ite_File (Output_File_Name ,  Output_,Lines ) ; 
end  RGverse_Fi le ; 
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Notice  the  use  of  the  with  clause,  explained  in  Unit  2,  to  allow  this  procedure  to  reference  the 
interfaces  of  the  Line_Holder  package  interface  and  the  procedures  it  calls. 

The  o'he  modules  can  also  be  implemented  as  Ada  procedures.  For  example,  the  Reverse  module 
can  be  implemented  as  follows: 

with  liine_.Holder ; 

procedure  Reverse_Lines (Original_Lines : In  Line_Holder . List_Of_Lines ; 

Reversed_Lines :  in  out  Line_Holder . List_Of_Lines ) 

is 

begin 

Line_Holder .Initialize (Reversed_Lines ) ; 

for  I  in  reverse  1 . . Line_Holder .Number_Of_Line3 (Original_Lines)  loop 
Line_Holder . Add_Line_To_List { 

Line_Holder . Line_Nuinber (Original_Lines ,  I),  Reversed_Lines ) ; 

end  loop; 

end  Reverse_Lines ; 

Compare  this  to  the  stepwise  refinement  version.  Notice  how  it  uses  the  same  algorithm  but  does  not 
depend  on  how  a  list  of  lines  is  represented.  This  is  especially  valuable  in  a  team,  where  developers 
need  freedom  to  experiment  with  different  implementation  strategies  and  cannot  risk  disturbing  other 
developers.  Since  other  developers  have  made  decisions  based  only  on  the  interface,  and  since 
implementation  strategies  are  hidden  information,  the  information  hiding  method  grants  developers 
this  freedom. 

Information  hiding  is  a  good  design  method  for  individuals  too.  You  may  have  already  encountered 
a  situation  where  a  change  you  thought  would  affect  only  one  part  of  your  program  required  much 
more  work  than  you  thought.  Information  hiding  helps  you  avoid  this. 
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UNIT  3:  INFORMATION  HIDING 

GROUP  ACTIVITY 


Hiding  Information 

The  implementation  of  the  vending  machine  software  was  developed  using  information  hiding  and 
includes  a  module  Change  Calculation.  The  purpose  of  this  module  is  to  calculate  the  change  required 
from  the  purchase  of  some  item  in  the  machini...  The  interface  of  this  module  is  as  follows: 

pacKaga  Change_Calculation  is 

typo  Coin_Value_And_Number  Is  record 
Value:  Positive; 

Number;  Positive; 

end  record; 

Number_Of_Coins_Used_In_DiEpen3ing_Change :  constant  Integer  :=  3; 

type  Coin_Money  is  array ( 1 . .Number_Of_Coins_Used_In_Di spans ing_Changs) 
of  Coin_Value_And_Nuinber  ; 

procedure  Calculate_Change ( Price : in  Positive; 

Money_Received ;  in  positive; 

Change:  in  out  Coin_Money) ; 

end  Change_Calculation; 

Procedure  Calculate_change,  given  a  price  for  an  item  in  the  vending  machine  and  an  amount  of 
money  received  (both  in  cents),  returns  in  change  coinage  that  makes  up  the  difference.  For  example, 
if  the  price  is  60  cents  and  the  money  received  is  75  cents,  the  contents  of  the  array  Change  will  be: 


Value 

Number 

Change ( 1 ) 

25 

0 

Change ( 2 ) 

10 

1 

Change ( 3 ) 

5 

1 

That  is,  the  change  is  0  quarters,  1  dime,  and  1  nickel. 

The  information  hidden  in  this  module  is  the  algorithm  used  to  calculate  how  many  coins  of  each  type 
to  dispense. 

Here  is  the  implementation  of  the  module’s  hidden  information,  that  is,  the  package’s  body: 

package  body  Change_Calculation  Is 

procedure  CalcalatG_Change ( Price ; in  Positive; 

MonGy_Received:  in  positive; 

Change,  in  out  Coin_Money)  is 
Change_To_Dispense :  Natural; 

begin 


Change (1) .Value  :=25; 

Change ( 2 ) .Value  :=  10; 

Change (3) .Value  :=  5  ; 

Change_To_Dispense  :=  Money_Received  -  Price; 

Change ( 1 ). Number  :=  Change_To_Dispense/Change(l) .Value; 
Change_To_Dispense  :=  Change_To_Dispense  mod  Change(l).Value; 

Change ( 2 ). Number  :=  Change_To_Dispense/Change (2 ) .Value; 
Change_To_Di.spense  :=  Change_To_Dispense  mod  Change(2).Value; 

Change ( 3 ). Number  :=  Change_To_Dispense/Change ( 3 ) . Value ; 

«nd  Calculate_Change; 

«nd  Change_Calculation; 

Consider  the  following  problems: 

1.  Identify  the  hidden  information  in  the  Change_Calculation  module. 

2.  Can  you  think  of  another  algorithm  to  implement  Calculate_change? 

3.  You  are  to  build  a  new  version  of  the  vending  machine.  This  version  will  be  sold  in  Germany. 
The  German  monetary  system  differs  from  that  of  the  United  States.  It  is  based  on  the 
Deutsche  Mark  (DM).  There  are  100  pfennigs  in  a  DM.  Germany  has  1  pfennig,  5  pfennig, 
10  pfennig,  50  pfennig,  1  DM,  2  DM,  and  5  DM  coins.  German  vending  machines  don’t 
dispense  as  change  paper  money  or  coins  less  than  10  pfennigs. 

German  vending  machines  dispense  drinks,  but  dispensing  food  hasn’t  caught  on  in  Germany 
or  most  other  European  countries.  Drinks  cost  anywhere  from  50  pfennigs  to  1.2  DM. 

Create  a  new  version  of  the  change_calculation  module  that  calculates  change  for  a 
machine  that  receives  and  dispenses  German  money.  Make  as  few  changes  to  the  interface  as 
you  can. 

4.  Why  is  it  important  that  you  change  the  interface  as  little  as  possible? 

HOMEWORK 

1 .  Adapt  the  change  calculation  module  of  the  vending  machine  for  use  in  another  country. 

2.  A  rational  number  is  a  number  that  can  be  expressed  as  the  ratio  of  two  integers.  Use 
information  hiding  to  design  and  implement  a  program  that  reads  two  rational  numbers,  adds 
them,  and  prints  the  result: 

a.  Decompose  the  problem  into  a  set  of  modules.  For  each  module,  state  its  interface  and 
its  hidden  information.  Describe  the  interface  as  an  Ada  package  specification; 
describe  the  hidden  information  in  English. 

b.  Implement  each  module.  Represent  a  rational  number  as  a  pair  of  integers. 

c.  Change  the  implementation  of  rational  numbers  to  a  single  floating-point  value.  What 
are  each  implementation’s  relative  advantages  and  disadvantages?  In  what  programs 
would  you  use  one  or  the  other? 
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The  package  Change_Calculation  presented  here  illustrates  how  you  can  use  the  programming 
language  Ada  to  implement  modules  designed  using  the  information  hiding  design  method.  The  package 
specification  is  the  module’s  interface.  It  provides  a  single  procedure  that  another  module  may  use  to 
determine  what  coins,  and  how  many  of  them,  must  be  dispensed  to  provide  a  person  with  change  for  their 
purchase.  The  package  also  has  several  data  and  type  definitions.  This  is  usual  in  information  hiding: 
developers  will  accompany  the  procedures  and  functions  with  data  types  that  support  their  use. 

1.  Identify  the  hidden  information  in  the  Change_Calculation  module. 

The  algorithm  is  the  hidden  information,  so  it’s  the  implementation  of  calculate  _change. 

2.  Can  you  think  of  another  algorithm  to  implement  caiculate_change? 

Here’s  one.  Though  slightly  more  complex  than  the  first  algorithm,  it’s  actually  easier  to  change 
when  you  do  activity  3.  The  reason  is  that  the  original  algorithm  made  a  design  assumption  that 
change  was  always  dispensed  using  three  coins. 

procedure  Calculate_ChangG ( Price : in  Positive; 

Money_Received:  in  positive; 

Chaiige:  in  out  Coin_Money)  is 
Chauge_To._Dispense :  Natural; 

begin 

Change (1) .Value  :=  25; 

Change(2) .Value  :=  10; 

Change (3) .Value  :=  5; 

Change_To_Dispense  ;=  Money_Received  -  Price; 
for  C  in  Change 'range  loop 

Change(C)  .nuit\ber  :=  Change_To_Dispense  /  Change  (C )  .Value  ; 
Change_To_Dispense  :=  Change_To_Dispense  mod  Change (C) .Value; 

end  loop; 

end  Calculate^Change; 

In  Ada,  you  use  the  notation  change  'range  in  a  for  loop  to  index  each  value  in  the  array  change. 
In  this  case,  the  loop  index  variable  c  assumes  the  values  I,  2,  and  3,  in  that  order. 

3.  You  are  to  build  a  new  version  of  the  vending  machine.  This  version  will  be  sold  in  Germany. 
The  German  monetary  system  differs  from  the  United  States’.  It  is  based  on  the  Deutsche 
Mark  (DM).  There  are  100  pfennigs  in  a  DM.  Germany  has  1  pfennig,  5  pfennig,  10  pfennig, 
50  pfennig,  1  DM,2  DM,  and  5  DM  coins.  German  vending  machines  don’t  dispense  as  change 
paper  money  or  coins  less  than  10  pfennigs. 

German  vending  machines  dispense  drinks,  but  dispensing  food  hasn’t  caught  on  in  Germany 
or  most  other  European  countries.  Drinks  cost  anywhere  from  50  pfennigs  to  1 .2  DM. 

Create  a  new  algorithm  that  calculates  change  for  a  machine  that  receives  and  dispenses 
German  money.  Make  as  few  changes  to  the  interface  as  you  can. 
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Here  is  one  answer.  The  lines  in  italics  are  the  lines  that  differ  from  the  original.  The  algorithm  now 
calculates  change  for  a  machine  that  dispenses  coins  from  10  pfennigs  to  2  DM.  The  interface  had 
to  be  changed  slightly  to  support  this,  since  the  U.S.  version  assumed  that  3  types  of  coins  (quarters, 
dimes,  and  nickels)  were  dispensed,  whereas  the  German  version  dispense:.  4  types  (10 pfennig,  50 
pfennig,  1  DM,  and  2  DM). 

package  Change_Calculacion  is 

type  Coin_Value_And_Nuinber  is  record 
Value:  Positive; 

Number:  Positive; 

end  record; 

Number_Of_Coins_Used_In_Dispensing_Change :  constant  Integer  :=  4; 
type  Coin_Money  Is 

array (1 . .Nuinber_Of_Coins_Osed_In„Dispensing_Change) 

of  Coin_ValMe_And_Nuiaber  ; 

procedure  Calculate_Change ( Price : in  Positive; 

MQney_Rc:ceived :  in  positive; 

Change:  in  out  Coin_Money) ; 

end  Change_Calculation; 

package  body  Change_Calculation  is 

procedure  Calculate_Change( Price: in  Positive; 

Money_Received :  in  positive; 

Change:  in  out  Coin_Money)  is 
Change_To_Dispanse :  Natural; 

begin 

Change (1) .Value  :=  200; 

Change (2 ) .Value  :=  100; 

Change (3 ) .Value  ;=  50; 

Change (4 J .Value  ;=  10; 

Change_To_DispenGe  :=  Money_Received  -  Price; 

Change ( 1 ) .Number  :=  Change_To_Dispense/Change ( 1 ) .Value ; 
Change_To_Dispense  :=  Change_To_DiGpensG  mod  Change (1 ) .Value; 
Change  (2  )  .Number  :=  Change_To_Dispense/Change  {?.)  .Value  ; 
Change_To  .Dispense  :=  Change_To_nispense  mod  Change (2 )  .Value; 
Change (3 ) .Number  :=  Change_To_Dispense/Change ( 3 ) . Value; 
Change_To__Dispense  :=  Change_To_Dispense  mod  Change(3 }  .Value; 
Change  {4}  .  Number  .-  =  Change_To_Dispense/Change  (4)  .Value; 
end  Calculate_Change ; 
end  Change_Calculation; 

•  Why  is  it  important  that  you  change  the  interface  as  little  as  possible? 

Suppose  you  are  part  of  a  team  and  are  writing  a  module  that  uses  this  module.  You  will  have  made 
some  design  decisions  based  on  the  interface  you  expect.  If  that  interface  changes,  you  may  have 
to  rethink  your  decisions. 
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You  will  often  find  you  cannot  avoid  making  any  changes  to  a  module's  interface.  However,  you 
can  plan  ahead  when  you  design  a  module  by  thinking  of  the  things  that  are  likely  to  change.  This 
is  part  of  what  information  hiding  is  all  about.  The  things  you  thi.,k  are  most  likely  to  change  are 
the  things  you  hide  behind  an  interface.  You  may  have  to  make  certain  parts  of  the  interface 
susceptible  to  change.  Here,  the  number  of  coins  in  the  monetary  system  had  to  change.  However, 
by  making  that  value  a  constant,  you  can  let  other  modules  rely  on  the  constant  rather  than  on  a 
literal.  In  this  way  you  can  lower  the  likelihood  of  inadvertent  effects. 
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TEACHER  NOTES  FOR  HOMEWORK 


Students  may  do  the  homework  problems  in  any  programming  language,  although  using  Ada  will  help  them 
separate  interface  from  implementation.  If  they  use  Pascal,  encourage  them  to  use  units  (if  your  compiler 
supports  them.) 

1.  Adapt  the  change  calculation  module  of  the  vending  machine  for  use  in  another  country. 

In  France,  the  monetary  system  is  based  on  the  French  Franc.  The  coins  are  1,  5,  10,  20,  and  50 
centimes,  and  1,  2,  and  5  Francs;  100  centimes  equals  1  Franc.  French  vending  machines  dispense 
coins  from  20  centimes  to  2  Francs,  inclusive.  Products  cost  between  1.2  and  8  Francs. 

package  Change_Calculation  is 

Nuinber_Of_Coins_To_DispGnse :  constant  Integer  :=  4; 

end  Change_Calculation; 

package  body  Change_Calculation  Is 

procedura  Calculate_Change ( Price : in  Positive; 

Money_ReceivGd;  in  positive; 

Change;  in  out  Coin_Money)  is 
Change_,To_Dispense :  Natural; 

begin 

Change ( 1 ) .Value  :=  200; 

Change (2 ) .Value  :=  100; 

Change ( 3 ) .Value  :=  50; 

Change (4) .Value  :=  20; 

Change_To_Dispense  :=  Money_Received  -  Price; 

Change ( 1 ). Number  :=  Change_To_Dispense/Change ( 1 ). Value; 
Change_To_Dispense  ;=  Change_To_Di.spense  mod  ChangetD.Value; 
Change ( 2 ). Number  Change_To_Dispense/Change ( 2 ) . Value  ; 
Change_To  .Dispense  :=  Change_To_Dispense  mod  Change(2).Value; 
Change ( 3 ). Number  ;=  Change_To_Dispense/Change (3 ) .Value; 
Change_To_DiEpense  ;=  Change_To_DispGnse  mod  Change ( 3 ). Value ; 
Change ( 4 ). Number  ;=  Change._To_Dispense / Change ( 4 ) .Value ; 
and  Calculate_Change; 
and  Change_Calculation; 

2.  A  rational  number  is  a  number  that  can  be  expressed  as  the  ratio  of  two  integers.  Use 
information  hiding  to  design  and  implement  a  program  that  reads  two  rational  r  mbers,  adds 
them,  and  prints  the  rcsulti 

a.  Decompose  the  problem  into  a  set  of  modules.  For  each  module,  state  its  interface  and 
its  hidden  information.  Describe  the  interface  as  an  Ada  package  specification; 
describe  the  hidden  information  in  English. 

It’s  important  that  the  students  try  to  design  the  modules  before  plunging  into  the 
implementation.  They  should  try  to  come  up  with  the  answer  to  this  question  before 
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tackling  Part  b.  However,  it’s  also  okay  if  they  don  ’/  get  the  correct  answer  on  the  first  try. 
Engineering  design  is  an  iterative  activity. 

There  are  two  modules,  Rational _Number  and  Main.  Rational _Number  has  the  following 
interface: 

package  Rational_Nuinber  ia 
type  Rational  ia  private; 

function  Rational_Number (Numerator : in  Integer; 

Denominator:  in  Integer) 

return  Rational ; 

function  Add(rl,  r2 :  Rational)  return  Rational; 
function  Numerator(r:  Rational)  return  Integer; 
function  Denominator (r :  Rational)  return  Integer; 
private 

type  Rational  is  record 
Numerator;  Integer; 

Denominator;  Integer; 
end  record ; 
end  Rational_Number , 

The  hidden  information  of  this  module  is  the  representatio:x  of  rational  numbers  and  the 
algorithms  used  by  the  functions  that  manipulate  them. 

The  main  module  has  the  following  interface: 

procedure  Read_Sum_And_Print_Rational_NuinberE ; 

The  hidden  information  of  this  module  is  the  algorithm  it  uses. 

b.  Implement  each  module.  Represent  a  rational  number  as  a  pair  (  f  integers. 

The  following  implementation  takes  the  trouble  to  normalize  rational  numbers  after  each 
operation — that  is,  it  divides  the  numerator  and  denominator  by  their  greatest  common 
divisor.  If  your  students  have  not  yet  encountered  this  algorithm,  you  may  want  to  provide 
it  for  them. 


» 


I 
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package  body  Rational_Number  is 

--  This  ppckage  implements  rational  numbers  as  pairs  of  integers. 

—  The  f  intage  to  this  scheme  is  that  rational  numbers  are 
--  represented  exactly.  The  disadvantage  is  that  numbers  must 

—  be  normalized  after  creation  and  each  arithmetic  operation, 

--  requiring  some  extra  time. 

procedure  Normalize(r:  in  out  Rational)  .is 
Numerator,  Denominator:  Natural; 

Remainder:  Natural; 

begin 

Numerator  :=  abs ( r . Numerator ) ;  —  Find  the  greatest  common 

Denominator  :=  abs ( r . Denominator ) ;  —  divisor  of  the  numerator 

while  Denominator  /=  0  loop  --  and  denominator  using 

Remainder  :=  Numerator  rem  Denominator;  —  Euclid's 
Numerator  :=  Denominator;  —  algorithm.  The  algorithm 

Denominator  :=  Remainder;  —  ends  with  numerator 

end  loop;  --  holding  the  GCD. 

r. Numerator  ;=  r. Numerator  /  Numerator; 
r . Denominator  :=  r . Denominator  /  Numerator; 
end  Normalize; 

function  Rational_Number (Numerator : in  Integer; 

Denominator:  in  Integer) 

return  Rational  is 
r:  Rational; 
begin 

r. Numerator  :=  Numerator; 
r . Denominator  :=  Denominator; 

Normalize (r ) ; 
return  r ; 

end  Rational_nurober ; 

function  Add(rl,  r2 ;  Rational)  return  Rational  is 
r:  Rational; 

begin 

r. Numerator  ;=  rl .Nurnerator*r2 . Denominator 
+  r2  ,  Numerator*!’!  .  Denominator; 
r . Denominator  :=  rl . Denominator  *  r2 .Denominator ; 

Normalize ( r ) ; 

return  r; 

end  Add; 

function  Numerator (r:  Rational)  return  Integer  is 

begin 

return  r.Numerator; 
end  Numerator; 

function  Denominator (r ;  Rational)  return  Integer  is 

begin 

return  r. Denominator; 
end  Denominator; 
end  Rational_Number ; 
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This  implementation  of  the  main  module  goes  through  the  rigamarole  necessary  to  instantiate  the 
generic  packages  needed  for  integer  input  and  output.  That’s  not  important  for  the  purposes  of  this 
assignment.  Rather,  have  the  students  concentrate  on  the  algorithm. 

with  Rat-ional_Number ,  Text_IO; 

procedure  Read_Sum_And_Print_Rational_Nuinbers  is 

paclcage  Integer_IO  ie  new  Text_lO. Integer_IO (Integer ) ; 
rl,  r2.  Sum:  Rat ional,_Number . Rational ; 

Numerator,  Denominator:  Integer; 

begin 

Text_IO . put ( 'Enter  the  first  number:  '); 

Integer_IO . get (Numerator ) ;  Integer_IO . get (Denominator ) ; 

rl  :=  Rational_Number . Rational_Number (Numerator ,  Denominator); 

Text_IO . put ( 'Enter  the  second  number:  '); 

Integer_IO . get (N'mierator ) ;  Integer_IO . get (Denominator ) ; 

r2  :=  Rational_number.Rational_number (Numerator,  Denominator); 

Sum  :=  RatiQnal_Number .Add(ri,  r2); 

Text_IO -put ( 'The  sum  is  "); 

Integer_IO .put (Rational_Number . Numerator ( Sum) ) ; 

Text_IO.put ('/'); 

Integer_IO. put (Rational_Number. Denominator (Sum) ) ; 
end  R3ad_Sum_And_Print_Rational_Numbers ; 

c.  Change  the  implementation  of  rational  numbers  to  a  single  floating-point  value.  What 
arc  each  implementation’s  relative  advantages  and  disadvantages?  In  what  programs 
would  you  u.se  one  or  the  other? 

The  package  specification  is  identical,  except  that  the  representation  of  Rational  changes. 
Replace  the  lines: 

typo  Rational  is  record 

Numerator:  Integer; 

Denominator:  Integer; 

end  record ; 


with: 

type  Rational  is  new  float; 

Here  is  the  package  body: 

package  body  Rational_Number  is 

--  This  package  implements  Rational  numbers  as  floating-point 
--  quantities.  The  advantage  to  this  scheme  is  that  it  is 
--  very  fa.st  for  performing  arithmetic  operations.  The 
--  disadvantage  is  that  the  numerator  and  denominator  must  be 
--  approximated  rather  than  computed  exactly. 

Number_Of_Denorainators :  const2mt  :=  10; 

Denominators:  constant  arrayd , .Number_Of_Denominators )  of  Integer 
:=  (1,  2,  3,  5,  7,  11,  13,  17,  19,  23); 
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function  Rational_Nuinber  {  Numerator :  in  Integer; 

Denominator:  in  Integer) 

return  Rational  is 
begin 

return  Rational (Numerator) /Rational (Denominator ) ; 
end  Rational_Nuinber  ; 

function  Add(rl,  r2 :  Rational)  return  Rational  is 

begin 

return  rl+r2; 
end  Add ; 

—  Compute  the  numerator  and  denominator  of  r.  The  algorithm 

—  is  to  choose  for  denominator  the  value  in  the  denominators 

—  array  such  that  numerator  =  f loor ( r*denominator )  and 

--  numerator/denominator  is  closer  to  r  than  for  any  other 

—  value  of  denominator  in  the  array. 

procedure  Compute_Numerator_And_Denominator_Of_Rational ( 
r !  in  Rational ; 

Numerator,  Denominator:  Integer)  is 

d,  n:  Integer; 

dprime,  nprime:  Integer; 

begin 

d  :=  Denominators (Denominators' first) ; 
n  :-  Integer (r*Rational (d) ) ; 

for  i  in  Denominators ' first+1  ..  Denominators ' lust  loop 
dprime  ;=  Denominators ( i) ; 
nprime  :=  Integer ( r ‘Rational (dprime) ) ; 
if  abs (Rational (nprime) /Rational (dprime )  -  r) 

<  abs (Rational (n) /Rational (d)  -  r)  then 
d  :=  dprime; 
n  :=  nprime; 
end  if; 
end  loop; 

Numerator  :=  n; 

Denominator  :=  d; 

end  Coraputo_Numerator_And_Denominator_Of_Rutional ; 

function  Numerator (r:  Rational)  return  Integer  is 
d,  n:  Integer; 

begin 

Coraputc_Numerator_And_Denominator_Of_Rational ( r ,  n,  d) ; 

return  n; 

end  Numerator; 

functioi  Denominator ( r :  Rational)  return  Integer  is 
d.  _  Integer; 

begin 

Compute_NumGrator_And_Denominator_Of_Rational (r ,  n,  d) ; 
return  d; 
end  Denominator; 


end  Rational_Nuinber ; 
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The  differences  between  the  two  implementations  may  be  summarized  as  follows: 

-  The  first  implementation  is  slower.  It  must  execute  the  normalization  operation  after 
creation  and  every  arithmetic  operation.  Moreover,  adding  two  rational  numbers  using  the 
first  implementation  requires  three  multiplications  and  one  addition,  whereas  adding  them 
using  the  second  implementation  requires  only  a  single  addition. 

—  The  second  implementation  is  less  exact.  The  first  always  represents  a  rational  number  as 
the  ratio  of  two  integer  quantities,  which  is  the  definition  of  a  rational  number.  The  second, 
which  uses  a  floating-point  value,  represents  a  fixed  number  of  significant  digits. 
Furthennore,  its  algorithm  fir  determining  the  numerator  and  denominator  is  accurate 
only  to  two  significant  digits. 

You  would  use  the  first  implementation  in  programs  where  accuracy  is  of  more  concern  than  speed. 
You  would  use  the  second  implementation  when  speed  is  of  more  concern  than  accuracy.  You  must 
also  assess  what  operations  you  will  use  most  frequently.  The  first  implementation  will  be  both  faster 
and  more  accurate  if  you  invoke  the  numerator  and  denominator  functions  more  often  than  the 
addition  and  creation  functions. 
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DISCUSSION 

This  slide  depicts  a  common  software  development  situation.  You  have  implemented  the  Reverser 
program  from  Unit  3.  which  reverses  the  lines  in  a  file.  Now  suppose  you’re  developing  another 
program,  and  it  needs  to  store  a  list  of  integers.  The  Line  Holder  module  has  a  similar,  but  not  quite 
identical  purpose;  it  stores  lines,  not  integers.  Can  you  save  yourself  work  by  using  it  in  this  program? 
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Understand  that  reuse  involves  planning  ahead 


DISCUSSION 

This  slide  presents  the  prevailing  theme  of  this  unit:  you  should  capitalize  on  others’  work  when  developing  software. 
This  is  known  as  practicing  software  reuse. 

Moreover,  you  should  develop  the  attitude  that  you  have  little  excuse  for  not  doing  so.  Whatever  program  you  write 
bears  some  resemblance  to  a  program  someone  has  written  already.  At  least  some  portion  of  it  will  be  similar  to 
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Two  Software  Maxims 


DISCUSSION 

This  slide  presents  some  data  that  shows  how  much  effort  reuse  can  save  you. 
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Some  Software  Reuse  Data 
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DISCUSSION 

This  slide  presents  generic  formal  objects,  another  type  of  generic  parameter. 

You  may  want  to  parameterize  a  generic  package  with  things  other  than  data  types.  For  instance,  the 
designer  of  the  Holder  package  might  want  to  let  other  packages  estimate  the  maximum  number  of 
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DISCUSSION 

This  slide  presents  a  problem  that  will  motivate  the  need  for  increased  flexibility  in  declaring  a  generic 
formal  object. 

Suppose  you  want  to  store  students’  grades.  Moreover,  you  decide  that  you  want  to  store  them  by 
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Recording  Student  Grades 
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DISCUSSION 

This  slide  presents  generic  range  parameters.  A  generic  range  parameter  solves  the  problem 
discussed  on  Slide  4-9. 

You  could  solve  the  problem  with  the  indexes  by  adding  to  the  Holder  package  another  generic 
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DISCUSSION 

This  slide  shows  how  to  use  the  new  Holder  module. 

The  slide  shows  two  generic  instantiation  examples.  The  first,  Students,  is  equivalent  to  the  example 
on -Slide  4-9.  However,  the  equivalence  is  obtained  by  specifying  a  range  and,  in  particular. 
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UNIT  4:  REUSE 


UNIT  SUMMARY 

As  you  develop  software,  you  will  often  find  that  you  need  a  module  that  offers  functions  and  data 
types  similar  to,  but  not  exactly  matching,  one  you  have  developed  in  the  past.  The  more  experience 
you  gain  with  software,  the  more  you  will  find  this  to  be  true.  You  will  also  find  that  other  people  have 
developed  software  you  might  be  able  to  use.  In  other  words,  no  program  is  totally  unique.  It  solves 
a  problem  related  to  problems  that  have  already  been  solved,  and  its  modules  and  structure  resemble, 
in  part,  modules  and  structures  of  existing  programs. 

You  should  try  to  reuse  existing  software  whenever  you  can.  Studies  have  shown  that  in  many 
programs,  especially  larger  ones,  50%  of  the  lines  of  code  can  easily  come  from  existing  programs. 
Reuse  of  70%  of  the  code  is  not  uncommon.  Since  a  software  developer  produces  an  average  of  40 
lines  of  code  per  day  over  the  course  of  a  project,  it’s  easy  to  calculate  just  how  quickly  the  savings  will 
add  up. 

Unfortunately,  reuse  is  harder  than  it  might  seem.  You’ll  find  the  primary  reason  is  that  you  developed 
your  modules  for  use  in  a  specific  program.  When  you  try  to  use  them  in  another  program,  you  often 
realize  you  need  something  slightly  different;  a  function  must  operate  on  a  string  rather  than  an 
integer,  for  instance.  You  may  find  that  writing  a  new  module  from  scratch  is  easier  than  modifying 
an  existing  module. 

There  are  several  things  you  can  do  to  improve  the  chances  that  a  module  will  be  reusable.  One  is  to 
use  generic  packages.  When  you  write  a  generic  package,  you  declare  generic  parameters  that  specify 
the  different  ways  you  expect  you  might  want  to  use  the  package.  You  can  then  instantiate  the  generic 
package  by  providing  values  for  the  parameters  that  meet  the  needs  of  specific  programs.  For  example, 
you  can  use  Ada  generic  packages  to  rewrite  the  Line_Holder  package  so  it  can  hold  integers,  strings, 
or  any  object  that  is  a  valid  Ada  data  type: 

gancrlc 

typa  11:hu\  Is  private; 
packags  Holder  la 

typa  List-  la  privata; 

procadura  Initialize ( Items :  out  List) ; 

privata 

Max_Values :  constant  Integer  :=  10000; 

typa  Items  is  array ( Integer  range  1 . .Max^Values )  of  Item; 
typa  List  ia  racord 

Number:  Integer  ranga  0 . .Max_Values; 

Values:  Items; 
and  racord; 
and  Holder; 

If  you  then  declare  a  data  type  representing  a  line: 

•ubtypa  Lino  la  .String ( 1  .,255); 
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you  can  create  a  Line_Holder  package  that  behaves  identically  to  the  one  in  Unit  3  using  the  following 
generic  instantiation: 

packaga  Line_Holder  is  new  Holder (Item  =>  Line) ; 

Because  Holder  is  a  generic  package,  you  can  use  it  to  hold  objects  of  any  type.  For  example,  you  can 
use  the  following  generic  instantiation  to  hold  a  list  of  integers: 

packaga  Integer_Holder  is  naw  Holderdtem  -->  Integer); 

The  Ada  compiler  cranks  out  a  new  package  based  on  the  parameters  to  the  generic  instantiation.  It’s 
as  if  you  took  the  Holder  package  and  substituted  Line  or  Integer  everywhere  item  appears.  See 
Figures  1  and  2,  drawn  from  the  Ada  code  on  Slide  4-6.  In  each  figure,  the  generic  Holder  package 
on  the  left  side,  with  its  generic  parameter  item,  is  instantiated  to  yield  the  package  on  the  right. 


Data  types  ain.1  numeric  values  are  examples  of  parameters  you  often  use  to  make  a  module  more 
reusable. 

Ada  has  many  kinds  of  generic  irarameters.  Figures  1  and  2  illustrate  a  generic  type  parameter.  You 
can  also  write  generic  packages  with  generic  formal  object  parameters.  A  generic  formal  object  is  a 
parameter  that’s  a  constant  value,  such  as  an  integer  or  a  character.  For  example,  you  could  add  a 
parameter  Max_Valucs  that  controls  the  maximum  number  of  values  a  holder  can  store.  See 
Figures  3, 4,  and  5,  drawn  from  the  Ada  code  on  Slide  4-8.  A  second  generic  parameter,  Max_va]  ues, 
has  been  added  to  the  Holder  package.  This  parameter  lets  you  specify  the  maximum  number  of 
values  an  instantiation  of  the  Holder  package  can  store.  You  can  now  control  both  the  type  and  size. 
Figure  3  creates  a  package  that  stores  1,000  lines.  Figure  4  creates  a  package  that  stores  30  integers. 
Figure  5  creates  a  package  that  stores  50,000  integers. 

A  generic  type  parameter  can  be  any  valid  Ada  data  type,  even  one  declared  from  a  generic 
instantiation.  Figure  7,  drawn  from  the  Ada  code  on  Slide  4-9,  illustrates  this  point.  Here,  the  item 
used  in  the  lower  generic  instantiation  is  of  type  List  from  the  package  students,  which  was 
instantiated  from  Holder. 
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Mgurc  3,  Generic  InslaiUialuni  of  the  Holder  Package  to  Hold  1,000  Lines 

Another  usel'ul  kind  of  generic  parameter  is  the  generic  range  parameter.  It  is  a  special  case  of  the 
generic  type  parameter,  where  the  type  you  provide  is  a  subtype  of  integers.  Using  subtypes  helps  you 
overcome  the  situation  in  Figure  7,  where  to  index  calendar  years  you  must  create  a  new  data  type  to 
hold  the  years  of  a  school’s  existence.  Figure  6  uses  the  Year_index  subtype  in  the  lower  generic 
instantiation  to  create  a  holder  module  whose  indexes  range  from  1980  to  2029. 

You  can  also  improve  the  chances  that  a  module  will  be  reusable  by  spending  some  extra  time  thinking 
about  reuse  as  you  develop  the  module.  Ponder  the  functions  that  the  module  offers.  Think  about  what 
is  essential  to  the  module  and  what  is  incidental  to  the  program  for  which  you  arc  developing  it.  This 
will  help  you  realize  what  generic  parameters  are  appropriate. 


Figure  5.  Generic  Inslanliation  of  the  Holder  Package  to  Hold  50,000  Integers 

Reuse  goes  hand  in  hand  with  the  information  Jiiding  design  method  covered  in  Unit  3.  To  create 
reusable  software,  you  must  make  it  adaptable  to  a  range  of  situations  in  which  it  will  likely  be  used. 
You  can  do  this  by  hiding  how  the  essential  functions  work,  but  showing,  on  the  interface,  the  exact 
ways  in  which  the  adaptation  is  possible.  This  separation  of  interface  and  hidden  information  comes 
directly  from  information  hiding. 
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Name 

Math_Grade 

CS_Grade 

History_Grade 


Index  / 

Item  / 

type  List; 

procedure  Initialize; _ 

List: 

I  Item  I  . . .  I  Item  | 

1  Max  Values 


Student  Index 


Generic  ll. 

Instantiation 


ZS/i/^^£r 
type  List; 

procedure  Initialize; 

List; 

1  Student; 

Name 

Math_Grade 

CS_Grade 

History_Gradc 

SO  Student; 

Name 

Math_Gradc 

CS_Grade 

HistoryGradc 


Index 

Item 

type  List; 

procedure  Initialize; 

List: 

Item 

Item 

1 

Max_Valucs 

Year  Index 


Item  Index 

J  L  J  L 


Generic 

Instantiation 


_ 

typo  List; 

procedure  Initialize; _ 

List;  _ 

1980  Sludenl  Holder: 

1  I  Name,  Grades  | 

50  I  Name,  Grades  I 


2029  Student  Holder: 

1  I  Name,  Grades  | 

•  •  t 

50  I  Name,  Grades  I 


Figure  6.  Instantiating  Student  Grades  and  School  History  Using  Generic  Range  Parameters 


•  • 


McRaprogramming  in  Ada  Coui^se:  Reuse.  Workbook 


Figure  7.  Inslantiating  Sludeni  Grades  and  School  History 
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UNIT  4:  REUSE 

LABORATORY  SPECIFICATION 


Note:  This  laboratory  is  not  being  produced  for  the  pilot  offerings.  The  laboratory  will  appear  in  a 
later  version  of  the  course,  based  on  comments  received  from  the  teachers  of  the  pilot 
offerings.  ITiis  specification  provides  a  definition  of  the  current  vision  for  such  a  laboratory. 
Because  the  laboratory  has  not  been  built,  not  all  issues  have  been  resolved.  Unresolved  issues 
are  shown  in  italic  text. 

PART  1:  BACKGROUND 


In  this  laboratory,  you  will  assemble  vending  machine  software.  You  will  not  write  this  software 
yourself;  you  will  use  the  reuse  techniques  you  learned  in  your  lecture  to  create  it.  You  will  work  in 
groups,  jointly  reusing  and  developing  the  software. 

Suppose  you  are  an  employee  of  the  Press  ’n  Gobble  Vending  Machines  Company.  One  day,  your  sales 
department  informs  you  that  it  has  located  two  potential  markets  Tor  the  vending  r  chines  your 
eompany  builds.  However,  none  of  Press  ’n  Gobble’s  current  machines  quite  fits  .ther  market. 
Management  has  decided  to  develop  new  ones  and  assigns  you  to  develop  the  software  the  machines 
will  need. 


Here  is  a  description  of  each  machine: 


1. 


The  first  machine  is  to  be  sold  in  the  United  States.  It  will  dispense  a  variety  of  food  products. 
It  will  look  as  shown  in  Figure  8.  Items  in  the  second  row  cost  65?.  Ail  other  items  cost  55c. 
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Figure  8.  A  Foiid-Dispensing  Vending  Macninc 


2.  The  second  machine  is  to  be  sold  in  Germany.  It  is  shown  in  Figure  9.  This  machine  is  to 
dispense  hot  beverages:  coffee,  decaffeinated  coffee,  tea,  and  espresso.  Because  it  dispenses 
only  a  few  items,  it  does  not  have  a  numeric  keypad  for  selection.  Instead,  each  item  has  a 
button;  you  push  that  button  to  get  the  item.  Of  course,  German  labels  will  be  .substituted  for 
the  English  ones  when  the  machine  is  placed  in  final  production.  You  can  insert  10  pfennig, 
50  pfennig,  1  DM,  2  DM,  or  5  DM  coins.  The  machine  dispenses  change  using  1  DM,  50 
pfennig,  and  10  pfennig  coins. 


Figure  9,  A  Driiik-Dispcnsing  Vending  Machine 


Your  assignment  for  this  laboratory  is  to  generate  the  software  for  both  vending  machines.  You  will 
do  so  by  choosing  the  necessary  software  modules,  as  explained  in  the  exercises  below.  You  must 
compile  and  link  these  modules.  You  can  then  run  the  software. 

The  SoFiwARE  Design 

Press  ’n  Gobble’s  software  developers  maintain  an  exten.sive,  well-organized  reuse  library  of  the 
modules  they  have  developed  over  the  years.  Furthermore,  they  have  developed  a  general  design  for 
vending  machine  software.  When  presented  with  the  '•equirements  for  a  new  vending  machine,  they 
can  quickly  determine  the  modules  they  need.  Every  program  they  develop  always  has  the  modules 
listed  in  Table  1. 


Table  1,  Software  Modules  Used  In  All  Press  ’n  Gobble  Vending  Machines 


Module  Name 

Module  Description 

Change  Return  Button 

Signal  that  the  money  the  person  has  entered  so  far  is  all  to  be  returned.  The 
hidden  information  of  this  module  is  how  it  is  determined  that  the  button 
has  been  pressed. 

Coin  Return 

Dispense  a  selected  amount  of  money,  in  coins.  The  hidden  information  of 
this  module  is  how  the  hardware  that  dispenses  coins  is  activated. 

Coin  Acceptor 

Accept  coins  and  nrovide  to  the  software  the  value  of  the  coin.  The  hidden 
information  is  thi  ucans  by  which  it  is  determined  what  coin  was  entered. 

Item  Dispenser 

Dispen.se  a  product  to  the  person.  The  hidden  information  of  this  module 
is  how  the  hardware  dispenses  products. 

Money  Accumulator 

Maintain  a  record  of  how  much  money  the  person  has  entered  so  far.  The 
hidden  information  is  the  means  to  calculate  and  represent  this 
information. 

Item  Selector 

Signal  a  selection.  The  hidden  information  of  this  module  is  how  it  is 
determined  that  the  person  has  prc.ssed  the  buttons  to  make  a  selection. 

Input  Event  Handler 

Collect  and  respond  to  the  .signals  issued  by  other  modules.  The  hidden 
information  of  this  module  is  the  algorithm  for  collecting  and  responding 
to  signals. 

Change  Calculator 

Determine  the  amount  of  change  needed  for  a  purchase.  The  hidden 
information  of  this  module  is  the  algorithm  for  calculating  change. 

Price  Information 

! 

Maintain  the  price  for  items  dispensed  by  the  machim,  and  allow 
determination  of  whether  a  .specified  amount  of  money  is  sufficient  to 
purchase  a  specified  item.  The  hidden  information  is  the  representation  of 
the  prices  and  the  algorithm  for  determining  whether  the  purchase  price  is 
enough. 

Holder 

Maintain  a  list  of  items.  The  hidden  information  is  the  representation  of 
the  list  and  the  algorithms  for  acce.s,sing  it. 

The  details  of  some  of  these  modules  may  vary  between  machines,  but  a  form  of  each  module  exists 
in  the  software  of  any  vending  machine  Press  ’n  Gobble  sells.  This  list  of  modules  is  not  intended  to  be 
complete,  just  illustrative.  They  were  derived  usinf'  information  hiding.  Moreover,  many  of  them  are  used 
in  both  vending  machines.  This  module  sharing  is  the  primary  requiremetU  for  any  design.  • 

Press  ’n  Gobble’s  software  library  has  other  parts  too.  These  parts  are  only  needed  in  certain  vending 
machines,  as  described  in  Table  2. 

Table  2,  Software  Modules  in  Specific  Press  ’n  Gobble  Vending  Maehines  • 


Module  Name 

Module  Description 

Include  If . . . 

Bill  Acceptor 

Accept  bills,  and  provide  to  the  software  the 
value  of  the  bills.  The  hidden  information  is  the 
means  to  determine  what  bill  was  entered. 

The  vending  machine  is  to  accept 
both  coins  and  bills. 

Money  Display 

Display  an  amount  of  money.  The  hidden 
information  is  the  algorithms  used  to  activate 
the  display. 

The  vending  machine  is  to  display 
the  amount  of  money  the  person  has 
entered  so  far. 
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PART  2:  LABORATORY  EXERCISES 

Exercise  1:  United  States  Vending  Machine 

You  are  to  create  the  software  needed  for  the  vending  machine  to  be  sold  in  the  United  States.  You 
must  perform  the  following  steps: 

1.  Read  ^he  description  of  the  food-dispensing  vending  machine  on  Page  7. 

2.  Determine  the  modules  you  will  need  for  the  vending  machine’s  software. 

3.  Assign  a  set  of  modules  to  each  member  of  your  group.  You  should  bear  in  mind  that  some 
modules  are  larger  than  others  and  partition  them  equally  across  your  group  so  eveiyone  has 
approximately  the  same  workload.  Use  the  figures  in  the  last  column  of  Tables  1  and  2  as  a 
rough  guide  to  the  relative  time  each  person  will  need  for  each  module.  Thin  column  isn’t  in 
place  yet  and  can ‘t  be  until  the  software  is  written.  We  shall  need  to  time  each  module 's  compilatioi 
and  prepare  the  figures  based  on  that  information.  Note  that  Steps  1  through  3  would  make  an 
excellent  prelaboratory  homework  assignment. 

4.  Each  person  must  perform  the  following  steps.  See  the  accompanying  write-up  on  using  the 
laboratory  for  instructions  on  how  to  do  so. 

a.  Create  a  directory  in  which  to  work  with  her  or  his  assigned  set  of  modules. 

b.  Copy  the  modules  assigned  to  her  or  him  from  Press  ’n  Gobble’s  library  of  reusable 
modules  to  the  directory  created  in  Step  a. 

c.  Write  generic  instantiations  for  the  following  modules; ..  .We  shall  ask  the  students  to 
write  a  few  generic  instantiations,  just  so  they  get  the  feel  of  adapting  reusable  modules  to 
fit  a  specific  need.  We  shall  provide  them  with  templates,  and  we  shall  provide  the  teacher 
with  the  answers. 

d.  Create  an  Ada  library.  This  is  assuming  that  the  Ada  compiler  does  not  support 
concurrent  compilation  using  a  single  library. 

e.  Link  her  or  his  library  with  the  library  of  everyone  else  in  their  group, 

f.  Use  an  Ada  compiler  to  compile  her  or  his  modules. 

There  is  one  complication  to  Step  4.f  The  modules  are  represented  as  Ada  packages. 
As  Unit  1  mentioned,  Ada  packages  must  be  compiled  in  a  particular  order.  You  and 
your  fellow  group  members  must  observe  the  rules  in  Table  3  as  you  compile  your 
modules. 


Table  3.  Compilation  Dependencies  Among  Press  ’n  Gobble  Software  Modules 


Module  Name 

Compilation  Dependencie.s 

This  column  lists  a  module  that’s 
dependent  on  at  least  one  other  module. 

This  column  lists  all  dependencies. 
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/  5.  Your  group  is  now  ready  to  create  an  executable  program.  The  person  who  compiled  module 

^  main  program  must  invoke  the  Ada  linker. 

You  may  now  execute  your  program,  using  the  following  input  data: .... 

After  you  have  finished  executing  your  program,  answer  the  following  questions: 

1.  What  communication  difficulties  did  you  encounter  and  how  did  you  overcome  them? 

2.  How  would  you  compare  this  to  your  experience  with  software  development? 

Exercise  2:  German  Vending  Machine 

Repeat  Steps  1  through  5,  this  time  creating  software  for  the  vending  machine  Press  ’n  Gobble  will 
sell  in  Germany. 

When  you  have  built  the  software,  execute  your  program,  using  the  following  input  data: . . . 

Now  answer  the  following  questions: 

1.  How  many  modules  from  the  first  assignment  did  you  reuse  without  any  additional  work? 

2.  How  many  modules  from  the  first  assignment  did  you  reuse  by  performing  different  generic 
instantiations? 
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PART  3:  INSTRUCTIONS  FOR  LABORATORY 

Note:  This  laboratory  will  ultimately  be  available  for  a  variety  of  platforms  (IBM  PC,  Macintosh, 
etc.).  This  write-up,  which  describes  how  to  use  the  laboratory,  is  specific  not  only  to  each 
platform  but  to  the  institution  in  which  it  is  used.  A  separate  version  of  this  write-up  is 
therefore  needed  for  each  platform,  and  instructors  must  tailor  it  to  their  own  institutions.  In 
all  cases,  students  must; 

—  Have  an  Ada  compiler 

—  Be  able  to  create  files 

-  Be  able  to  read  files  created  by  other  students 

-  Be  able  to  read  a  set  of  files  created  by  the  instructor 

For  simplicity’s  sake,  this  write-up  is  written  as  if  the  laboratory  were  being  run  in  the  following 
environment: 

—  Each  student  has  access  to  an  IBM  PC  (or  compatible)  computer  with  a  286  or 
compatible  processor. 

-  Each  PC  is  connected  to  a  file  server  on  drive  S. 

-  Each  student  has  permission  to  create  files  in  a  subdirectory  of  drive  S. 

-  Eacli  student  can  create  and  edit  text  files  (Microsoft’s  edit  application  or  most  Pascal 
compilers  would  do). 

—  Each  student  has  access  to  an  Ada  compiler. 

As  in  the  laboratoiy  descriptions,  unresolved  issues  appear  in  italic  text. 

This  write-up  describes  how  to  use  your  computer  to  perform  the  vending  machine  laborato:y 
exercises.  The  emphasis  is  on  Steps  4  and  5,  since  these  are  the  steps  that  involve  using  the  computer. 

1.  To  perform  this  step,  you  must  log  on  to  your  computer.  Then  perform  each  of  the  following 
steps: 

a.  Create  a  directory  in  which  to  work  with  your  a.ssigned  set  of  modules.  For  this 
laboratory,  you  will  work  in  the  directory  s :  tadaiab.  Create  a  directory  whose  name 
is  your  last  name: 

C!\>S: 

S:\>mkdir  \adu  I  abXyournanie 
S:\>chdir  \ ada I abXyourname 

b.  Copy  the  modules  assigned  to  you  modules  from  Press  ’n’  Gobble’s  library  of  reusable 
modules  to  the  directory  you  created  in  Step  l.a.  You  will  find  these  modules  in  the 
directory  s :  \adalab\pressgobiiIe_moduIes.  The  modules  are  in  the  following 
files: 
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Here  we  include  a  table  listing  all  the  modules  shown  in 
the  tables  in  the  laboratory.  For  each  module,  we  state 
the  file  or  files  holding  its  code. 

S:  \BdBlab\yourriaaia>copy  \adalab\ fil el .  ada  . 

Perform  a  copy  command  for  each  module  assigned  to  you. 

c.  If  you  have  been  assigned  module  X,  you  must  write  a  generic  instantiation  of  package 
Y named  Z.  A  generic  instantiation  of  y  has  the  form: 

package  Z  is  new  Y{P1  =>  VI,  P2  ->  V2)  ; 

Use  text  editing  application  to  create  a  file  named  z.ada  that  contains  the  above  line. 
Use  valuel  for  vl  and  value2  for  V2. 

d.  Create  an  Ada  library,  using  the  following  command: 

S ;  \adala])\yournai)]«>/nkiib 

c.  Link  your  library  to  that  of  other  members  of  your  group.  For  example,  if  your  partners 
are  hername  and  hisname,  issue  the  following  two  commands: 

S :  \adalab\yourxiajn»>iinkllii  s  :  \adalib\hernan\e\ada  .  i  ib 
S :  \adalab\yourijajn«>iinkIijb  s  :  \udalib\hisname\ada  .  lib 

f.  Compile  your  assigned  set  of  modules.  For  instance,  if  you  are  assigned  modules 
stored  in  files  x.  ada,  y.  ada,  and  z .  ada,  issue  the  following  commands: 

S : \adalab\youriiajn«>ada  x.ada 
S I \adalab\youriiama>ada  y.ada 
S I  \adalab\yoiiri2amo>c-ida  z.ada 

Be  sure  to  observe  the  dependency  rules!  If  you  do  not,  you  will  get  an  error  message 
from  the  compiler: 

Thti  error  nioasage  when  a  package  can't  ba  bound. 


2.  Whoever  in  your  group  was  assigned  to  compile  the  file  main .  ada  must  now  link  together  all 
the  modules: 

S:\adalib\yournaJiia>iiuk  main 

This  will  produce  a  file  called  ;nain ,  exe.  You  can  execute  this  file  by  typing  the  command: 

S :  \adallb\yournaina>;nain 
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UNIT  4:  REUSE 

LABORATORY  SPECIFICATION 

TEACHER  NOTES  FOR  LABORATORY 

This  section  must  describe  to  the  instructor  how  to  conduct  the  laboratory.  Topics  include: 

•  Suggestions  on  how  to  make  the  example  seem  more  realistic  by  inventing  a  background  tailored 
to  the  school  in  which  the  course  is  being  taught 

•  Answers  to  the  laboratory  exercises 

•  Additional  questions  the  teacher  may  want  to  ask  students 


Thin  page  intentionally  left  blank. 


TEST  FOR 

MEGAPROGRAMMING  IN  ADA  COURSE 


1.  True/False  Software  developers  spend  the  majority  of  their  time  writing  code. 

2.  True/False  The  majority  of  software  changes  result  from  the  need  to  enhance  the 

software. 

3.  True/False  A  programming  language  can  help  developers  manage  .  change  and 

communication. 

4.  True/False  The  only  information  in  a  package  that  is  visible  to  other  packages  is  that 

contained  in  the  package  specification,  outside  the  private  part. 

5.  Abstraction  helps  developers  separate  the _ from 

the _ _ . 


6.  True/False  A  developer  who  builds  an  Ada  package  must  write  both  the  specification  and 

the  body  before  it  is  useful  to  other  developers. 

7.  True/False  The  stepwise  refinement  design  method  results  in  designs  that  are  easy  to 

change. 

8.  True/False  The  first  decisions  you  make  when  following  the  information  hiding  design 

method  concern  the  modules  in  your  program. 

9.  True/False  Software  developers  usually  find  similarities  between  the  programs  they  are 

developing  and  programs  they  have  developed  previously. 


10.  Ada 


developers  can  reuse. 


help  software  developers  build  packages  that  other  software 


•  • 


11.  Describe  the  purpose  ol  software  design. 


'aprogrammini 


R  in  AQa  k^oursc:  icsi 


12.  Using  the  principles  of  abstraction  and  information  hiding,  design  the  interface  for  a  module 
that  implements  a  counter — that  is,  something  another  module  might  use  to  maintain  a  count 
of  the  number  of  times  some  event  or  situation  occurs. 


i 


13.  Consider  the  following  specification  of  a  package  for  searching  an  array  of  integers: 

packaga  Integer_Array_Search  la 

BUbtypa  Array_Index  Is  Integer  ranpa  1..1000; 

typa  Integer_Array  la  array  (Array_Index)  of  Integer; 

procadura  Search_Array ( 

Array_To_Search:  in  lnteger_Array; 
Nutnber_Of_Eleinent£j :  in  Array_Indcx; 
Element_To_Search_For :  in  Integer; 

Elen\ent_Found:  out  boolean; 

Index_lf_Found:  out  Array_Index 

1  ; 

and  Integer_Array_Search ; 

Use  generics  to  rewrite  this  package  to  be  more  reusable. 


•  • 
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TEST  FOR 

MEGAPROGRAMMING  IN  ADA  COURSE 

TEACHER  ANSWERS 

Software  developers  spend  the  majority  of  their  time  writing  code. 

The  majority  of  software  changes  result  from  the  need  to  enhance  the 
software. 

A  programming  language  can  help  developers  manage  change  and 
communication. 

The  only  information  in  a  package  that  is  visible  to  other  packages  is  that 
contained  in  the  package  specification,  outside  the  private  portion. 

5.  Abstraction  helps  developers  separate  the  essential  information _ from 

the  irrelevant  details _ ^ ^ _ . 

A  developer  who  builds  an  Ada  package  must  write  both  the  specification  and 
the  body  before  it  is  useful  to  other  developers. 

The  stepwise  refinement  design  method  results  in  designs  that  arc  easy  to 
change. 

The  first  decisions  you  make  when  following  the  information  hiding  design 
method  concern  the  modules  in  your  program. 

Software  developers  usually  find  similarities  between  the  programs  they  are 
developing  and  programs  they  have  developed  previously. 

10.  Ada  s^’nerics _  help  software  developers  build  packages  that  other  software 

developers  can  reuse. 

11.  Describe  the  purpose  of  software  design. 

Software  design  lets  software  developers  decompose  a  problem  into  a  set  of  modules.  Each  of  these 
modules  is  simpler  than  the  whole.  This  is  necessary  to  reduce  the  complexity  of  the  overall  system, 
making  it  easy  for  individuals  to  understand  portions  of  a  system. 

Another  reason  for  software  design  is  to  break  a  problem  into  parts  that  can  be  assigned  to  a  set  of 
individuals.  In  other  words,  software  design  is  necessary  for  large  programs  to  ensure  that  each 
person  on  a  team  has  a  coherent  development  assignment. 


6.  liue/palse  | 

7.  True/pals^ 

8.  [rrue/talse 


9.  Irrue/False 


1.  True/t^alsel 

2.  tTrue/false 

3.  iTrue/false 

4.  Irrue/^alse 
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12.  Using  the  principles  of  abstraction  and  information  hiding,  design  the  interface  for  a  module 
that  implements  a  counter— -that  is,  something  another  module  might  use  to  maintain  a  count 
of  the  number  of  times  some  event  or  situation  occurs. 


(5) 


The  following  package  specification  provides  other  packages  the  ability  to  initialize  the  count 
to  0,  to  increment  the  count,  and  to  determine  its  current  value.  This  is  the  essence  of  counting. 

package  Counter  la 

procedure  Set_To_Zero; 
procedure  Increment; 

function  Current_Value  return  Integer; 
end  Counter; 


13.  Consider  the  following  specification  of  a  package  for  .rrhing  an  array  of  integers: 

package  Integer_Array_Search  Is  0 

subtype  Array_Index  is  Integer  range  1..1000; 
type  Integer_Array  is  army  (Array_Index)  of  Integer; 

procedure  Search_Array { 

Array_To_Search:  in  Integer_Array; 

Nuinlner_Of._Elements :  in  Array_Index;  0  ® 

Element_To_Search_.For :  in  Integer; 

Element_Found:  out  boolean; 

Index_If_Found:  out  Array_Index 

1  ; 

end  IntegGr_Array_Search; 

• 

Use  generics  to  rewrite  this  package  to  1  •  more  reusable. 

You  can  make  the  array's  base  data  type  and  index  generic.  Note  the  name  change  for  the 
second  parameter.  The  old  name  was  based  on  an  ordinal  counting  system.  In  the  generic 
version,  the  array’s  lower  bound  might  not  be  1. 

• 

generic 

type  Item  is  private; 

type  Array_Index  is  range  <> ; 
package  Array__Search  is 

type  Generic_Array  is  array  {Array_Index)  of  Item; 

• 

procedure  Search_Array ( 

Array_To_SGarch :  in  Generic__Array ; 

Last_Eleraent :  in  Array_Index; 

Element__To_Search_For :  in  Item; 

Element_Found:  out  boolean; 

Index_If_Found:  out  Array_Index  ® 

)  ; 

end  Array_Search; 


- • 

4 


s 


SURVEY  FOR 

MEGAPROGRAMMING  IN  ADA  COURSE 


Please  answer  the  following  questions.  The  organization  that  developed  the  course  material  will  use 
this  information  to  improve  the  course. 

1.  Do  you  feel  that  you  understand  basic  software  engineering  principles  (abstraction, 
information  hiding,  and  reuse)  after  taking  this  course? 


2.  Do  you  see  value  in  the.se  principles?  Why  or  why  not? 


B  • 


3.  Do  you  see  value  in  using  a  programming  language  such  as  Ada  that  helps  you  express  these 
principles?  Why  or  why  not? 


4.  Would  you  like  to  learn  more? 


« 
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5.  What  activity(ies)  or  example(s)  was  most  helpful  to  you  in  undefstanding  the  basic  software 
engineering  principles? 


6.  Do  you  have  any  other  suggestions  for  how  the  course  can  be  improved? 
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SURVEY  FOR 

MEGAPROGRAMMING  IN  ADA  COURSE 
TEACHER  ANSWERS 


There  are  no  right  or  wrong  answers  on  this  section.  A  suggestion  for  this  survey  would  be  to  hand  it 
to  the  students  after  they  have  completed  the  test  and  give  them  extra  credit  if  they  fill  it  out  and  hand 
it  in  the  next  day. 
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PREFACE 


This  laboratory  and  teacher  notes  are  part  of  the  Megaprogramming  in  Ada  Course  (SPC-94094-CMC, 
version  01.01.04)  produced  by  the  Software  Productivity  Consortium.  The  course,  which  is  a  short 
course  aimed  at  high  school  students,  consists  of  four  units:  software  engineering,  abstraction,  in¬ 
formation  hiding,  and  software  reuse.  The  laboratory  described  in  this  write-up  should  be  performed 
at  the  end  of  the  information  hiding  unit  (Unit  3),  preferably  after  the  students  have  completed  Home¬ 
work  Assignment  2  of  Unit  3.  Assignment  2  deals  with  concepts  of  the  software  that  students  will  use 
in  the  laboratory  and,  therefore,  serves  as  a  good  introduction  to  the  laboratory  material. 
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UNIT  3:  INFORMATION  HIDING 


LABORATORY 

In  this  laboratory,  you  will  compile  and  execute  an  implementation  of  the  rational  number  package 
from  Homework  Assignment  2  in  Unit  3. 

The  software  you  will  use  is  in  three  files; 

•  RATNUM .  ADA,  which  contains  the  package  specification  for  rational  numbers. 

•  RATNUM_B .  ADA,  which  Contains  the  package  body  for  rational  numbers. 

•  READ_SUM .  ADA,  which  contains  the  procedure  Read_Sum_And_Print_Rational_Numbers. 
This  procedure  uses  the  rational  number  package  to  read,  sum,  and  print  two  rational 
numbers. 

You  must  first  compile  the  software.  Perform  the  following  steps: 

1.  Create  a  directory  called  RATNUM  on  your  C  drive: 

C ; >  md  ratnum 

2.  Change  your  directory  to  RATNUM: 

C;>  cd  ratnum 

3.  Copy  the  software  to  your  current  directory.  Your  teacher  will  provide  you  with  the  location 
of  the  software.  For  example,  if  it  is  located  in  S:\ADA\RATNUM,  you  would  execute  the 
following  command; 

C:\RATNUM>  copy  s : \ada\ratnum\* .ada 

4.  Compile  the  software.  You  must  first  compile  the  rational  number  package  specification,  then 
the  rational  number  package  body,  then  the  Read_Sum_And_Print_Rationiil_Numbers 
procedure: 

C:\RATNUM>  janus  ratnum. ada 
<J:\RATNUM>  janus  ratnum_b.ada 
C;\RATNUM>  janus  read_sum. ada 

You  must  type  thi-,  .ada  file  name  suffix. 

The  Ada  compiler  will  print  diagnostic  information  as  it  compiles  each  file.  This  information, 
not  shown  here,  should  indicate  that  compilation  is  progressing  without  errors.  If  you  see  any 
error  messages,  contact  your  teacher. 

5.  Link  the  software; 

C:\RATNUM>  jlink  read_suin 
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Do  not  type  a  file  name  suffix. 


After  you  successfully  complete  these  steps,  there  will  be  an  executable  file  called  READ_SUM.COM 
in  your  directory. 

You  may  now  execute  the  software; 

C : \RATNUM>  read_sum 

You  will  be  prompted  to  enter  two  rational  numbers.  You  will  be  asked  for  the  first  number’s 
numerator,  then  its  denominator,  then  the  second  number’s  numerator,  and  finally  the  second 
number’s  denominator.  Enter  each  number  as  an  integer.  For  instance,  the  following  shows  how  to 
instruct  the  program  to  compute  1/7  +  3/5: 

C :  \RATNUM>  read_EUn\ 

Enter  the  numerator  for  the  first  number:  1 
Enter  the  denominator  for  the  first  number:  7 
Enter  the  numerator  for  the  second  number •  3 
Enter  the  denominator  for  the  second  numt)'  ■  :  5 
The  sum  is  26/35 

Exercises 

1.  Use  the  software  to  compute  3/18  -  10/7. 

2.  Try  using  the  software  to  compute  1/1000  +  1000/1. 

a.  Why  do  you  think  the  software  fails?  (1  lint:  Examine  the  Add  function  to  discover  how 
two  rational  numbers  are  added.) 

b.  The  lectures  on  abstraction  and  information  hiding  covered  the  need  to  express  a 
module’s  functional'  >  package  specification.  Based  on  this  laboratory,  what  else 
do  you  think  must  be  lu  u  jrackage  specification? 
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UNIT  3:  INFORMATION  HIDING 


TEACHER  NOTES  FOR  LABORATORY 

Note-.  This  course  contains  a  simplified  version  of  a  planned  software  laboratory.  A  more  elaborate 
version  may  be  available  at  a  later  date. 

You  should  have  received,  along  with  these  instructions,  a  floppy  diskette  containing  the  software 
solving  Homework  Assignment  2  in  Unit  3.  This  software  is  almost  identical  to  that  shown  in  the 
Unit  3  Teacher  Notes,  with  the  following  exceptions: 

•  The  software  on  the  floppy  diskette  includes  some  error-handling  code  that  lets  the  compiled 
program  terminate  gracefully  under  abnormal  conditions. 

•  The  software  on  the  floppy  diskette  uses  a  friendlier  input  paradigm. 

The  floppy  diskette  includes  the  three  files  of  Ada  source  code  discussed  in  the  laboratory  write-up: 
RATNUM.ADA,  RATNUM_B .  ADA,  and  READ_SUM . ADA.  You  must  provide  each  student  with  a  copy  of 
these  files.  If  your  computers  are  linked  together  on  a  network  and  have  access  to  a  central  file  server, 
you  can  place  them  on  that  server.  Each  student  can  then  copy  the  files  directly  from  that  server  to 
her  or  his  own  computer,  as  shown  in  the  laboratory  write-up.  You  can  also  provide  each  student  with 
a  floppy  diskette  containing  the  source  files  and  ask  them  to  copy  the  files  from  that  diskette  to  their 
hard  drive. 

Each  student  must  be  able  to  use  an  Ada  compiler.  The  instructions  in  the  laboratory  write-up  use  the 
Janus/Ada  compiler  from  R&R  Software,  Inc.  See  the  file  READ_ME.TXT  on  the  floppy  diskette 
for  more  information  on  using  this  compiler. 

Exercises 

1.  Use  the  software  to  compute  3/18  -  10/7. 

This  simple  exercise  ensures  that  students  know  how  to  use  the  program  they  have  just  compiled. 
Be  sure  they  enter  the  input  values  correctly  only  integers  are  accepted.  Entering  anything  else  will 
cause  the  program  to  stop  prematurely. 

2.  Try  using  the  software  to  compute  1/1000  +  1000/1. 

a.  Why  do  you  think  the  software  fails?  (Hint:  Examine  the  Add  function  to  discover  how 
two  rational  numbers  are  added.) 

The  Add  function  uses  the  following  formida  to  add  two  rational  numbers  R1  and  R2; 

R. Numerator  :=  R1 .Numerator  *  R2 . Denominator 
+  R2  .Numerator  *  R1  . Denominator 
R . Denominator  :=  R1 . denominator  *  R2 . denominator ; 

Evaluating  the  first  assignment  statement  using  1/1000  and  1000/1  yields: 
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1X1+  1000  X  1000 
=  1  +  1000000 

An  examination  of  the  representation  of  a  rational  number  in  the  package  specification 
reveals  that  Numerator  and  Denominator  are  values  of  type  Integer.  An  Integer  value  can 
range  from  —32,768  to  32,767.  Since  1,000,000  is  greater  than  32,767,  evaluating  the 
expression  causes  an  overflow.  The  Ada  language  requires  that  a  compiler  generate  code 
to  detect  these  conditions.  This  is  an  instance  of  language  standardization,  discussed  in 
Unit  1. 

b.  The  lectures  on  abstraction  and  information  hiding  covered  the  need  to  express  a 
module’s  functionality  in  a  package  specification.  Based  on  this  laboratory,  what  else 
do  you  think  must  be  in  a  package  specification? 

The  package  specifications  shown  include  information  on  the  procedures  and  functions, 
and  how  to  use  them.  The  specifications  should  also  show  the  ways  in  which  the  procedures 
and  functions  can  fail! 


